狂刀你看下你看得懂不

Public Cnn As New ADODB.Connection
Public Rs As New ADODB.Recordset
Function Con()Dim strcn As Stringstrcn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\ac.mdb"
Cnn.Open strcn
Rs.CursorLocation = adUseClient
End Function
Private Sub Command1_Click()
Call Con
Sing = "select * from 表 where 钢号 ='" & Trim(Combo1.Text) & " '" Rs.Open Sing, Cnn, 3, 3
txt=Rs.Fields("200度")
End Sub