用SQL如何和VB连接?代码怎么编?

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

楼主是不是问反了哦？
是不是VB怎么连接SQL服务器进行数据库操作？
楼主是不是想学ASP？