(22/05/2016, 15:35)C*e*l*o*y*c*e yazdı: VB 6 Yok bende ancak vb Net te şu şekilde kendinize uyarlayın 

conn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\user\Desktop\XXXX.mdb; Jet OLEDB: Database Password ='123456';")

Option Explicit
Dim cn As New ADODB.Connection
Private Sub Form_Load()
conn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\user\Oktay\Veritabanı.mdb; Jet OLEDB: Database Password ='p1a9r7k4er';")
End Sub

denedim olmadı.
Private Sub Form_Load()
conn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\user\Oktay\Veritabanı.mdb; Jet OLEDB: Database Password ='p1a9r7k4er';") 
End Sub

denedim olmadı.
Private Sub Form_Load()

conn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Oktay\Veritabanı.mdb; Jet OLEDB: Database Password ='p1a9r7k4er';") 

denedim gene olmadı hocam 
Compile Eror : Syntax eror hatası aldım.

genede ilgilendiniz ve bilgi sundunuz için teşekkür ederim.