作者: XWQ2000 时间: 2006-10-22 09:57
希望有人帮帮我作者: sgrshh29 时间: 2006-10-22 15:00
Dim Rs As New ADODB.Recordset
Dim strSQL As String
strSQL = "SELECT * FROM Tabel WHERE B = 5"
Rs.Open strSQL, CurrentProject.Connection, 1, 3
................................
Rs.Close
Set Rs = Nothing
End Sub