Opening a Recordset Based on a Table or Query with SQL command : Recordset Open « Access « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Access
3. Recordset Open

Opening a Recordset Based on a Table or Query with SQL command

 
Sub ConnectAndExec()
   Dim conn As ADODB.Connection
   Dim rst As ADODB.Recordset

   Set conn = New ADODB.Connection
   conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=" & CurrentProject.Path & _
      "\mydb.mdb"
   Set rst = conn.Execute("Select * from Employees")
   Debug.Print rst.Source
   rst.Close
   Set rst = Nothing
   conn.Close
   Set conn = Nothing
End Sub

 

Related examples in the same category