Hi There,
Please see below code.
it takes about 0.01 seconds to get data from the MySQl database
It takes a lot longer to fill every single cell with the proper value
does any faster way exist to fill cells with the proper data?
tried playing around with the getstring option as this holds ALL data but couldn't find a proper way to use this and show data properly

Code:
  mySQL = ""
    mySQL = mySQL & "SELECT ID, txtJPost, txtVolgnr, txtShipmentID, txtDateInvoice, txtAmountex, txtcur, txtROE, txtPaid"
    mySQL = mySQL & " FROM invoicedb"
    mySQL = mySQL & " WHERE txtShipmentID IN "
    mySQL = mySQL & "(SELECT shipmentID FROM shipmentdb "
    mySQL = mySQL & "WHERE InputDate >= '" & Year(Sheet1.Range("E10").Value) & "-" & Month(Sheet1.Range("E10").Value) & "-"
    mySQL = mySQL & Day(Sheet1.Range("E10").Value) & "'"
    mySQL = mySQL & " AND InputDate <= '" & Year(Sheet1.Range("G10").Value) & "-" & Month(Sheet1.Range("G10").Value) & "-"
    mySQL = mySQL & Day(Sheet1.Range("G10").Value) + 1 & "')"
    mySQL = mySQL & " ORDER BY txtShipmentID"
    'MsgBox mySQL
    myRS.Source = mySQL
    Set myRS.ActiveConnection = myconn
    myRS.CursorLocation = adUseClient
    myRS.Open
    Do While Not myRS.EOF
      Sheet2.Range("A" & Step1).Value = myRS.Fields("txtShipmentID").Value
      Sheet2.Range("B" & Step1).Value = "B"
      Sheet2.Range("C" & Step1).Value = myRS.Fields("ID").Value
      Sheet2.Range("D" & Step1).Value = myRS.Fields("txtDateInvoice").Value
      Sheet2.Range("E" & Step1).Value = myRS.Fields("txtVolgNr").Value
      Sheet2.Range("F" & Step1).Value = Replace(myRS.Fields("txtAmountEX").Value, ",", ".")
      Sheet2.Range("F" & Step1).Value = Sheet2.Range("F" & Step1).Value * -1
      Sheet2.Range("G" & Step1).Value = myRS.Fields("txtROE").Value
      Sheet2.Range("H" & Step1).Value = myRS.Fields("txtPaid").Value
      Sheet2.Range("I" & Step1).Value = myRS.Fields("txtCUR").Value
      Sheet2.Range("J" & Step1).Value = myRS.Fields("txtJPost").Value
      If myRS.Fields("txtCUR").Value <> "EUR" Then
        Sheet2.Range("F" & Step1).Value = myRS.Fields("txtAmountEX").Value * CDec(myRS.Fields("txtROE").Value)
        Sheet2.Range("F" & Step1).Value = Sheet2.Range("F" & Step1).Value * -1
      End If
      myRS.MoveNext
      Step1 = Step1 + 1
    Loop
  myRS.Close
  myconn.Close
Appreciated!