Dim conn As New ADODB.Connection
Dim rs As New Recordset
Private Sub Command1_Click()
conn.ConnectionString = "provider=sqloledb;date source=MY-TOMATO;initial catalog=northwind;uid=jx;pwd="
conn.Open
End Sub
以上是我的代码～请问我的错在哪里他老是显示＂连接字符串属性无效＂

是否已引用了ADO控件。。。