Dim oRs As ADODB.Recordset
Set oRs = New ADODB.Recordset
With oRs
  .CursorLocation = adUseClient
  .Open "SELECT UserName, Password FROM tblUsers WHERE UserName = '" & _
    txtUser.Text & "'", oConn, adOpenForwardOnly, adLockOptimistic
  If oRs.RecordCount > 0 Then
    ' Passwort aus DB auslesen
    sPassword = oRs.Fields("Password")
  End If
End With
oRs.Close
Set oRs = Nothing

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de