References: (Project Menu -> References) Microsoft DAO 3.51 object library Microsoft ActivX data object 2.0 library Microsoft Scripting runtime Microsoft databainding collection Microsoft dataformating object library Form Load Event : (General Area) Private cn As ADODB.Connection Private rs As ADODB.Recordset Dim cmd As String Dim sql As String Connection String : (any event where you want to call DB) cmd = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C: db1.mdb ( database name) ;Persist Security Info=False;Jet OLEDB:Database Password= database password Set cn = New ADODB.Connection With cn .ConnectionString = cmd .Open End With sql = “select * from tablename ” Set rs = New ADODB.Recordset rs .Open sql , cn , adOpenKeyset, adLockPessimistic rs .MoveFirst Continue reading →