为什么我的 Access 数据库连接 vb 显示身份验证失败

问：

我是第一次尝试使用 Microsoft Access。使用它创建一个数据库，用于存储我将从大量 Microsoft Excel 文件中提取的信息。不幸的是，当我尝试从Excel文件设置函数和与数据库的连接时，我遇到了这个错误，我不知道如何解决。我一直在使用在线资源来尝试第一次构建它，但我还没有看到任何人自己遇到具体问题。每次它通过我拥有的一个函数时，似乎都会发生此错误。我希望有人能够提供一些见解。似乎每次我运行它并去调试它时都会突出显示.打开时显示 GetKeyID 函数中的错误。但我以前从未见过这种情况。

Sub TestTransferDataToAccess()
    Dim ConnObj As ADODB.Connection
    Dim RecSet As ADODB.Recordset
    Dim ConnCmd As ADODB.Command
    Dim ColNames As ADODB.Fields
    Dim DataSource As String
    Dim intLoop As Integer
    
    'Datasource
    DataSource = "O:\Department\Engineering\Einstein\00 - Systems Engineering\04 - Databases\VerificationLogDB.accdb"
    
    'Create a new connection object & a new command object
    Set ConnObj = New ADODB.Connection
    Set ConnCmd = New ADODB.Command
    
    'Create a new connection
    With ConnObj
        .Provider = "Microsoft.ACE.OLEDB.12.0"
        .ConnectionString = DataSource
        .Open
    End With
    
    'command object to use Active Connection shortcut method
    ConnCmd.ActiveConnection = ConnObj
    
    ' Define Excel workbook and worksheet
    Dim wb As Workbook
    Dim ws As Worksheet
    
    ' Set Excel workbook and worksheet
    Set wb = Workbooks.Open("O:\Swap\Chicago\GenoF\Reading-2021-03-22-10-14-48.xls")
    ' Set worksheet
    Set ws = wb.Sheets("As Found-CW Data")
    
    ' Loop through Excel data and insert into Access database
    Dim headerID As Long
    Dim keyID As Long
    Dim torqueValue As Double
    Dim row As Long
    
    For row = 16 To 25 ' Rows B16 to B25 for Channel 1 data
        headerID = GetHeaderID(ws.Cells(row, 2).Value) ' Used for header lookup
        keyID = GetKeyID("Channel 1") ' Used for key lookup
        torqueValue = CDbl(ws.Cells(row, 3).Value) ' Used for torque data cell
        
        ' Insert data into Access database
        strSQL = "INSERT INTO tblTorqueData (headerID, keyID, torqueValue) VALUES (" & headerID & ", " & keyID & ", " & torqueValue & ")"
        ConnCmd.Execute strSQL
        
        
    Next row
    
    ' Close the Recordset and Connection
    RecSet.Close
    ConnObj.Close
    Set RecSet = Nothing
    Set ConnCmd = Nothing
    Set ConnObj = Nothing
    
    MsgBox "Data transfer to Access completed."
End Sub

Function GetHeaderID(headerName As String) As Long
    'variables for database connection
    Dim conn As Object
    Dim rs As Object
    Dim RecSet As ADODB.Recordset
    
    'Define the Datasource
    DataSource = "O:\Department\Engineering\Einstein\00 - Systems Engineering\04 - Databases\VerificationLogDB.accdb"
     
    'Create a new connection object & a new command object
    Set ConnObj = New ADODB.Connection
    Set ConnCmd = New ADODB.Command
    
    'Create a new connection
    With ConnObj
        .Provider = "Microsoft.ACE.OLEDB.12.0"
        .ConnectionString = DataSource
        .Open
    End With
    
    'Allow command object to use the Active Connection shortcut method
    'ConnCmd.ActiveConnection = ConnObj
    
    ' Use SQL query to retrieve HeaderID based on headerName
    Dim strSQL As String
    strSQL = "SELECT HeaderID FROM tblHeaders WHERE HeaderName = '" & headerName & "'"
    
     'Execute the Query & Get the Column Names.
    'rs.Open strSQL, conn
    Set rs = CreateObject("ADODB.Recordset")
    
       ' Check if record was found
    'If Not rs.EOF Then
     '   GetHeaderID = rs.Fields(0).Value
    'Else
        ' Handle the case where no record was found
     '   GetHeaderID = -1 ' Replace with default value
    'End If

    
        ' Close the Connection
    ConnObj.Close
    
    ' Release ADODB objects
    Set rs = Nothing
    Set conn = Nothing
End Function

Function GetKeyID(keyName As String) As Long
    ' variables for database connection
    Dim conn As Object
    Dim rs As Object
    Dim RecSet As ADODB.Recordset
    
    'path to Access database file
    Dim dbPath As String
    dbPath = "O:\Department\Engineering\Einstein\00 - Systems Engineering\04 - Databases\VerificationLogDB.laccdb"
    
    'database and recordset
    Set conn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.Recordset")
     
     'Create a new connection
    With conn
        .Provider = "Microsoft.ACE.OLEDB.12.0"
        .ConnectionString = DataSource
        .Open
    End With
    
    'Allow command object to use the Active Connection shortcut method
    ConnCmd.ActiveConnection = ConnObj
    
    ' Use SQL query to retrieve KeyID based on keyName
    Dim strSQL As String
    strSQL = "SELECT KeyID FROM tblKeys WHERE KeyName = '" & keyName & "'"
    
    ' Execute query and get result
    Set RecSet = ConnCmd.Execute
    'rs.Open strSQL, conn
    
    ' Check if record was found
    If Not rs.EOF Then
        GetKeyID = rs.Fields(0).Value
    Else
        ' Handle case where no record was found
        GetKeyID = -1 ' Replace with appropriate default value
    End If
    
    ' Close the Recordset and Connection
    rs.Close
    conn.Close
    
    ' Release ADODB objects
    Set rs = Nothing
    Set conn = Nothing
End Function