With CN
         .Open "Driver={MySQL ODBC 3.51" & _
           "Driver};Server=localhost;Database=test;user=test;password=test;OPT" & _
           "ON=16384"
 
end with

   Dim nTime As Single
    nTime = Timer
    Set RS = New ADODB.Recordset
    Set RS.ActiveConnection = CN
    RS.CursorLocation = adUseClient
    RS.CursorType = adOpenDynamic
    Set RS = CN.Execute("SELECT * from POSTEIN")    
    With sevGrid1 'sevDataGrid
        .LockUpdate True
        ' Recordset zuweisen
        Set .Recordset = RS
        .LockUpdate False
        .Refresh
        .ROW = 1
    End With
    MsgBox "Timer: " & Timer - nTime

   Dim nTime As Single
   nTime = Timer
 
    Set RS = New ADODB.Recordset
     RS.CursorLocation = adUseClient
    ' Recordset-Objekt erstellen
    SqlQuery = "SELECT * FROM postein"
    RS.Open SqlQuery, CN ', adOpenDynamic, adLockBatchOptimistic
 
    With sevGrid1      
      ' Recordset zuweisen
      Set .Recordset = RS       
      '.LockUpdate False
      .Refresh
      .ROW = .Rows
      RS.Close
      Set RS = Nothing     
    End With
         MsgBox "Timer: " & Timer - nTime