Private Sub Command4_Click() Dim rs1 As New ADODB.Recordset Dim a As String a = "select * from kaoqin" rs1.Open a, conn1, adOpenKeyset, adLockPessimistic Set DataGrid1.DataSource = rs1 datagrid1.refresh rs1.Close End Sub
Dim conn1 asNew Connection
Dim rs1 asNew Recordset
PrivateSub Command4_Click()
if rs1.State<>0then rs1.Close
rs1.Open "select * from kaoqin" , conn1, adOpenKeyset, adLockPessimistic
Set DataGrid1.DataSource = rs1
datagrid1.refresh
End Sub
