请教VB6.0高手大大

Question

strSelect = "SELECT Model,Capacity,Price,Unit,Telephone From UPSsupply WHERE Name=  " & TxtName & "  "

Answer 1

Private Sub Command1_Click()
With Adodc1
        .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=db2.mdb;" & "Persist Security Info=False"        .CursorType = adOpenDynamic
        .CommandType = adCmdText            '将Source作为命令
        .RecordSource = "SELECT * FROM UPSsupply where NAME='" & Text1.Text & "'"
        .Refresh    End With
    
    Set DataGrid1.DataSource = Adodc1
End SubPrivate Sub Form_Load()    With Adodc1
        .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=db2.mdb;" & "Persist Security Info=False"        .CursorType = adOpenDynamic
        .CommandType = adCmdText            '将Source作为命令
        .RecordSource = "SELECT * FROM UPSsupply ORDER BY ID"
        .Refresh    End With
    
    Set DataGrid1.DataSource = Adodc1
    
End Sub

Answer 2

剩下的自己对应一下吧名称 窗口上一个 DataGrid1，一个Adodc1，一个TEXT1，一个command1按钮
已经测试成功