Set oConn = New adodb.Connection
    oConn.Open "DRIVER={C/ODBC 32" & _
      "bit};CSF=Yes;PPath=C:\Navision\Client;SName=192.168.1.10;NType=tcp;UID=" & _
      "er;PWD=auchimmer;CN=test;SERVER=Y;IT=a-Z,A-Z,0-9,_"
 
    Set rsDebitor = New Recordset
    rsDebitor.Open "SELECT * FROM Debitor ORDER BY Nr_ ASC", oConn, _
      adOpenKeyset, adLockReadOnly
 
    With sevGrid1
        .LockUpdate True
        Set .Recordset = rsDebitor
        .LockUpdate False
        .Refresh
    End With

Lars

--

A programmer is just a tool which converts caffeine into code