VB通过ADO连接ODBC数据源

lichunling

我在VB中想调用VF数据库。我先在控制面板的管理工具中进行了设置，然后写了下面的一些代码，但连不到数据库。但是在可视化数据管理器里可以通过ODBC打开相应的VF数据库，不知道问题出在哪里，敬请指教。

Option Explicit
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim SqlStr As String

Private Sub Combo1_Change()
'新建一个connection对象的实例，并将它赋给conn
Set conn = New ADODB.Connection
'建立到数据库“选型参数”的连接
conn.ConnectionString = "Provider=MSDASQL.1ersist Security Info=False;User ID=sa;Data Source=选型参数"
conn.Open
'新建一个Recordset对象的实例，并将它赋给rs
Set rs = New ADODB.Recordset
SqlStr = "select * from 物料特性 where 物料名称 = " + Trim(Combo1.Text) + ""
rs.Open SqlStr, conn
    txtdensity.Text = Trim(rs("松散密度"))
    txtAngle.Text = Trim(rs("安息角"))
    txtMoveAngle.Text = Trim(rs("动堆积角"))
    rs.Close
    Set rs = Nothing
End Sub

lichunling

没人会吗？