请教advapi32.dll？

Question

刚接触VB，有一个登陆页面，代码如下：
Option Explicit
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As Long
Public OK As Boolean
Dim txtSQL As String
Dim mrc As ADODB.Recordset
Dim MsgText As String
Dim miCount As Integer
Private Sub cmdOK_Click()
Dim i As Integer    txtSQL = "select * from password where code = '" & txtPassword.Text & "'"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    If mrc.EOF = True Then
    m_passcode = 3
    txtPassword.Text = ""
        MsgBox "没有这个记录，请重新输入!", vbOKOnly + vbExclamation, "警告"
        txtPassword.SetFocus
    Else
            For i = 1 To 6
            strpass(i) = Trim(mrc.Fields(i))
            Next
          Unload
    End IfEnd Sub
看了很久，不知这个密码写在哪里，密码是知道的，不知要怎样修改密码？

Answer 1

密码在数据库里的password表中

Answer 2

谢谢楼上的答复，我想问一下，这个password表在什么地方，好像怎个程序没有这个，只有 ExecuteSQL的定义：
 Public Function ExecuteSQL(ByVal SQL As String, MsgString As String) As ADODB.Recordset
   Dim cnn As ADODB.Connection
   Dim rst As ADODB.Recordset
   Dim sTokens() As String
   
   On Error GoTo ExecuteSQL_Error
   
   sTokens = Split(SQL)
   Set cnn = New ADODB.Connection
   cnn.Open ConnectString
   If InStr("INSERT,DELETE,UPDATE", UCase$(sTokens(0))) Then
      cnn.Execute SQL
      MsgString = sTokens(0) & " query successful"
   Else
      Set rst = New ADODB.Recordset
      rst.Open Trim$(SQL), cnn, adOpenKeyset, adLockOptimistic
      Set ExecuteSQL = rst
      MsgString = "查询到" & rst.RecordCount & " 条记录 "
   End If
ExecuteSQL_Exit:
   Set rst = Nothing
   Set cnn = Nothing
   Exit Function
ExecuteSQL_Error:
   MsgString = "查询错误: " & Err.Description
   Resume ExecuteSQL_Exit
End Function

Answer 3

数据库的位置信息在ConnectString里

Answer 4

不好意思，好像也找不到这个connectstring文件，只有一个ACCESS文件Object,打开时要输入数据库密码，因不知密码，不知是不是这个文件？

Answer 5

好像是这个Object文件，它在Data文件下，因我把这个文件删除，输入密码时出现在错误，问题是这个文件被加密了，进不去。