求助VB数据库问题 怎么去连接Access数据库和SQL数据库啊?我连接的时候老是连接不上去.

Dim i As Integer
On Error Resume Next
i = 0
Combo1.Clear
Set MDBData = Nothing
Set rs = Nothing
Set MDBData = Workspaces(0).OpenDatabase("数据库路径")
Set rs = MDBData.OpenRecordset("table1")
If rs Is Nothing Then
MsgBox "打开数据表称错误！"
Exit Sub
End If
rs.MoveFirst
Do While Not rs.EOF
i = i + 1
......
rs.MoveNext
Loop
SettingFlag = False
Frame2.Enabled = False