rs.CursorLocation = adUseClient
rs.Open "股票行情表", conn, adOpenKeyset, adLockPessimistic
End Sub
Private Sub Command1_Click() ' 显示 Recordset 的所有记录数据
Dim S As String, i As Integer
rs.MoveFirst
List1.Clear
While Not rs.EOF
S = ""
For i = 0 To rs.Fields.Count - 1
S = S & rs.Fields(i).Value & vbTab
Next
List1.AddItem S
rs.MoveNext
Wend
End Sub