Access Dosyasından Veri Alma

Option Explicit
Sub ReadAceesFile()
    Dim AccessFileName, cnn, Rs, strSQL, RecCount
    AccessFileName = "orders.mdb"
    Set cnn = CreateObject("ADODB.Connection")
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Trim(AccessFileName)

    Set Rs = CreateObject("ADODB.Recordset")
    Rs.CursorType = 3

    strSQL = "SELECT PartNo, UsageWeekNo, Qty FORM ORDER;"
    
    Rs.Open strSQL, cnn

    Rs.MoveFirst
    RecCount = Rs.RecordCount
    
    Dim ItemCode, OrderQty, DeliveryDate
    
    While Not Rs.EOF
        ItemCode = Rs("PartNo")
        OrderQty = Rs("Qty")
        DeliveryDate = Rs("UsageWeekNo")

        Rs.MoveNext
    Wend
    Rs.Close
    Set Rs = Nothing
    cnn.Close
End Sub