VB 6.0數據庫查詢代碼不會，求指教！

1，控件的名稱分別是：

3個文本框從上到下：Text1、Text2、Text3

ADO控件名為：Adodc1，網格控件名為：DataGrid1

2，根據妳給出的圖片，字段[鋼級]為字符類型、[外徑]和[壁厚]為數值類型。

3，妳的數據庫文件名為“數據庫.mdb”,且已經保存在與本工程文件同壹個文件夾裏。

4，妳所使用的數據表名為“鋼材數據表”

那麽，在[查詢]按鈕的單擊事件裏，編寫如下代碼就可以實現妳的要求：

Adodc1.ConnectionString

=

"Provider=Microsoft.Jet.OLEDB.4.0;Data

Source="

&

App.Path

&

"\數據庫.mdb;Persist

Security

Info=False"

Adodc1.RecordSource

=

"select

*

From

鋼材數據表

Where

鋼級='"

&

Text1.text

&

"'

And

外徑="

&

trext2.text

&

"

And

壁厚="

&

text3.text

Adodc1.Refresh

If

Not

(Adodc1.Recordset.EOF

And

Adodc1.Recordset.BOF)

Then

　Set

DataGrid1.DataSource

=

Adodc1

Else

　MsgBox

"沒找到！"

End

If