[asemshahen5]

جرب هذا بالكلاس :

كود :

Public Class ConnectionXT
   Dim sqlcon As New OleDb.OleDbConnection
   Public Sub ConnString(Path As String)
       sqlcon = New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Path & ";Jet OLEDB:Database Password=;")
       If sqlcon.State = ConnectionState.Closed Then
           sqlcon.Open()
       End If
   End Sub
End Class

و عند استدعائها بالكود التالي :

كود :

Dim StrConn As New ConnectionXT
StrConn.ConnString(Application.StartupPath & "\Database1.accdb")