Attribute VB_Name = "Module2"
Public db As New ADODB.Connection
Public usname As String
Sub openrs(rs As ADODB.Recordset, sqlstr As String)
Set rs.ActiveConnection = db
rs.CursorLocation = adUseServer
rs.CursorType = adOpenDynamic
rs.LockType = adLockOptimistic
rs.Source = sqlstr
rs.Open
End Sub
Function getpasswd(username As String) As String

getpasswd = ""
Dim rspass As New ADODB.Recordset
Call openrs(rspass, "select psbit,psd1,psd2,psd3,psd4,psd5,psd6 from passd where user='" + username + "'")
If rspass.EOF() And rspass.BOF() Then
   getpasswd = Chr(13)
   rspass.Close
   Set rspass = Nothing
   Exit Function
End If

Dim i As Integer
For i = 1 To rspass!psbit
    getpasswd = getpasswd & Chr(rspass.Fields(i).Value Xor 188)
Next i
rspass.Close
Set rspass = Nothing
End Function