something likePrivate cnnToDb As New ADODB.Connection
Private rst As New ADODB.RecordsetIn Form_Load event: Dim strDb As String
 Dim strSQL As String strDb = "C:\SomePath\your.mdb" strSQL = "SELECT TblA.ID, TblA.ItmName, TblA.price, TblB.job_name " _
   & "FROM TblA INNER JOIN TblB ON (TblA.ID = TblB.PART_ID)" cnnToDb.Open "Provider=Microsoft.Jet.OLEDB.3.51;" & _
  "Data Source=" & strDb & ";" rst.Open strSQL, cnnToDb, adOpenStatic, adLockReadOnly Set DataGrid1.DataSource = rst
in the Form_Unload event: If cnnToDb.State = 1 Then  'check if connection still open
  rst.Close
  cnnToDb.Close
 End If