Private Sub OpenDatabaseConnection()
 
Dim objConn As ADODB.Connection
Dim objRST As ADODB.Recordset
Dim strSQL As String
Dim strConn As String
Dim strState As String
 
Set objConn = CreateObject("ADODB.Connection")
Set objRST = CreateObject("ADODB.Recordset")
 
 
 
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\adnan\Downloads\Access_2003_VBA_Code\Access 2003 VBA Code\Chamber Data.mdb;"
 
strSQL = "SELECT * from tblBusiness"
 
 
 
 
objConn.Open (strConn)
'objConn.Mode = adModeRead
 
objRST.Open strSQL, objConn, adOpenForwardOnly, adLockOptimistic
objRST.MoveFirst
 
While Not objRST.EOF
    Debug.Print objRST(0)
    Debug.Print objRST(1)
 
    objRST.MoveNext
Wend
 
objRST.Close
objConn.Close
 
Set objRST = Nothing
Set objConn = Nothing
 
End Sub

SELECT *
FROM caribilgi IN 'c:\carilerim2009.accdb'
WHERE cariislemsayısı>3