怎么利用VB和SQL做通讯

Dim DBData As Database
Dim rs As Recordset

Set DBData = Nothing
Set rs = Nothing
Set DBData = Workspaces(0).OpenDatabase(……)'sql语句
If DBData Is Nothing Then
DBFlag = False
MsgBox "数据库路径或名称错误！"
Exit Sub
End If
Set rs = DBData.OpenRecordset("table1")
If rs Is Nothing Then
DBFlag = False
MsgBox "数据库路径或名称错误！"
Exit Sub
End If

rs.MoveFirst
Do While Not rs.EOF
……
rs.MoveNext
Loop