Wahuu… Just forgot to post the code… Here it is: Private Sub Form_Load() Dim wrkODBC As Workspace Dim conNAVI As Connection Dim rsSource As Recordset Dim rdDest As Recordset Set wrkODBC = CreateWorkspace(“MyWorkspace”, “admin”, “”, dbUseODBC) Set conNAVI = wrkODBC.OpenConnection(“NAVISQL”, dbDriverCompleteRequest, True, “ODBC;DATABASE=danbit;DSN=NAVISQL;UID=;PWD=;”) Dim SQLStr As String SQLStr = “SELECT * FROM Vare WHERE Nummer LIKE ‘a%’” Set rsSource = conNAVI.OpenRecordset(SQLStr, dbOpenForwardOnly) conNAVI.Close wrkODBC.Close End Sub Edited by - Novaree on 2/8/01 10:47:07 AM