With conNavision
        .Provider = "SQLOLEDB.1"
        .Properties("Persist Security Info").Value = False
        .Properties("User ID").Value = "VBNavision"
        .Properties("Password").Value = "test"
        .Properties("Initial Catalog").Value = "Navision"
        .Properties("Data Source").Value = "Fisch-sql10"
        .Open
    End With
 
    sqlNavision = "SELECT * FROM Fisch-Breeder$Item "
    rsNavision.LockType = adLockOptimistic
    rsNavision.CursorLocation = adUseClient
    rsNavision.Open sqlNavision, conNavision