У меня есть модуль:
Public conA As New OleDb.OleDbConnection()
Public strConn1 As String = "data
Public strConn As String= "Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data Source=C:\Documents and Settings\Мои документы\db1.mdb;Mode=Share Deny None;Extended Properties="";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False"
Public Sub openConnection()
If conA.State = ConnectionState.Closed Then
conA.ConnectionString = strConn
conA.Open()
End If


Есть форма:
Module2.openConnection()
Dim strSQL As String
Dim ds As New Data.DataSet()
strSQL = "select * from Таблица1 where QUANTITY<0 and CD_DEP=15"
Dim ad As New OleDb.OleDbDataAdapter(strSQL, Module2.conA)
ad.Fill(ds, "part")
Me.DataGrid1.DataSource = ds.Tables("part")
Так вот,выскакивает сообщение
An unhandled exception of type 'System.Data.OleDb.OleDbException' occurred in system.data.dll
Additional information: No error information available: DB_SEC_E_AUTH_FAILED(0x80040E4D).
И указывается строка в модуле: conA.Open()

Может кто-нибуь поможет?

Пробовал,все безрезультатно.

В принципе,когда я создавал с помощью дизайнера,в строке ConnectionString было так же.

Сорри,поторопился.Ты прав.Все работает,спасибо!