With cnnPos
        .CursorLocation = adUseClient
        .ConnectionString = "Provider=SQLOLEDB.1;Integrated" & _
          "Security=SSPI;Persist Security Info=False;" _
                & "Initial Catalog=" & sDatenbank & ";Data Source=" & sServer
        .Open
    End With