Ms.access to vb database connectivity

try this code... module code Option Explicit Public cn As New ADODB.Connection Public rs As New ADODB.Recordset 'Establish connection on database Sub DBConnection() Set cn = New ADODB.Connection cn.CursorLocation = AdUseClient cn.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & App.Path & "\Foldername\db.mdb" End Sub form load event Call DBConnection hope this code help you!....gud lck! HAppy Coding!