您這個應該是針對ａｃｃｅｓｓ數據庫的吧,小弟用的是ｓｑｌｓｅｒｖｅｒ的數據庫，這種方法好像不適用吧。

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "数据库名.mdb;Persist Security Info=False  这个Microsoft.Jet.OLEDB.4.0换一下试试

Dim cn As New ADODB.Connection
cn.ConnectionString ="Provider=SQLOLEDB.1;Password=密码;Persist Security Info=True;User ID=sa;InitialCatalog=数据库名称;DataSource=服务器名称"
cn.Open

注意：在工程中必须引用
工程->引用->Microsoft ActiveX Data Objects 2.0 Library (后面为版本号)

Persist Security Info=True,系統自定義是False,這有區別嗎.
另外如果要將輸入的數據與數據庫中某一字段中的某一個數據比較判斷,用以下語句是否可以了:if text1.text=*.recordset.fields("字段名") then
...

else
...

end if
我是了是錯的,請大俠指正.

[此贴子已经被作者于2006-2-23 13:19:58编辑过]

請各位大俠指點一下啊

謝謝之前的各位,問題解決了