数据列不存在False Error VB

Question

所以我正在尝试创建一个表单，使用Microsoft Access更新与数据库中的其他数据表一起保存的数据表，但不创建访问中的程序。当我运行程序并单击“创建”时，会弹出“该列不存在”的错误

即使我检查解决方案资源管理器时，它显示我已连接且右列存在

与此相关的代码是：

Private m_cn As New SqlConnection
Private m_daQuotes As SqlDataAdapter
Private m_daData As SqlDataAdapter
Private m_daUsers As SqlDataAdapter
Private m_cbQuotes As SqlCommandBuilder
Private m_cbData As SqlCommandBuilder
Private m_cbUsers As SqlCommandBuilder
Private m_dtQuotes As New DataTable
Private m_dtData As New DataTable
Private m_dtUsers As New DataTable
Private m_rpQuotes As Integer = 1
Private m_rpData As Integer = 1
Private m_rpUsers As Integer = 1
Private m_drQuotes As DataRow
Private m_drData As DataRow
Private m_drUsers As DataRow
Private neededPassword As String

Private Sub fMainForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    m_cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\kophazi\Documents\Databases\Customer Quotes Log Database.accdb"
    m_daQuotes = New SqlDataAdapter("Select * from Quotes", m_cn)
    m_daData = New SqlDataAdapter("Select * from Data", m_cn)
    m_daUsers = New SqlDataAdapter("Select * from Users", m_cn)
    m_cbQuotes = New SqlCommandBuilder(m_daQuotes)
    m_cbData = New SqlCommandBuilder(m_daData)
    m_cbUsers = New SqlCommandBuilder(m_daUsers)
    m_daQuotes.Fill(m_dtQuotes)
    m_daData.Fill(m_dtData)
    m_daUsers.Fill(m_dtUsers)

Private Sub btnpOCreateNew_Click(sender As Object, e As EventArgs) Handles btnpOCreateNew.Click
    Dim userNewRow As DataRow = m_dtUsers.NewRow()
    userNewRow("username") = txtpOName.Text
    userNewRow("Password") = txtpOPassword.Text
    m_dtUsers.Rows.Add(userNewRow)
    m_daUsers.Update(m_dtUsers)
End Sub