Vb.net DatagridView未从数据源获取数据

我目前正在开发一个程序，在这个程序中，我可以生成密钥并将它们保存到本地创建的access数据库中，这确实有效。但当我试图在DataGridView中查看这些生成的键时，DataGridView将保持空白

我已经尝试设置断点，sql命令是正确的

这是我想用来填充DataGridView的Sub

Friend Sub FillDGV(ByVal sTable As String)

        Dim VDB As New OleDbConnection(getProviderString)
        Dim SQLString As String = "SELECT * FROM " & sTable
        Dim DBDataadapter As OleDbDataAdapter
        Dim DBDataset As New DataSet
        Dim DBDatatable As New DataTable
        resetDGV()

        Try
            VDB.Open()
            DBDataadapter = New OleDbDataAdapter(SQLString, VDB)
            DBDataadapter.Fill(DBDataset, SQLString)

            DBDataadapter.Dispose()
            VDB.Close()

            frmMain.dgv_Voucher.DataSource = DBDataset.Tables(sTable)  'Tabelle an DataSource binden

            VDB.Dispose()
        Catch ex As OleDbException
            frmMain.LogMessage(modMain.msv_sAppname_Short & ", während der Prüfung der Existenz der Tabelle " & modMain.sMSAccess_File_Name & ". Es kam zu folgender Exception : " & ex.Message, 3)
            If VDB IsNot Nothing Then VDB.Close()
        End Try


    End Sub

这是我用来打开潜艇的

Private Sub cmb_SelectedDBTable_Index_changed(sender As Object, e As EventArgs) Handles cmb_SelectedDBTable.SelectedIndexChanged
        db.FillDGV(cmb_SelectedDBTable.SelectedItem)
    End Sub

---

它现在起作用了，这就是我所做的

Friend Sub TestFillDGV(ByVal sTable As String)
        Dim VDB As New OleDbConnection(getProviderString)
        Dim SQLString As String = "SELECT * FROM " & sTable
        Dim DBDataadapter As OleDbDataAdapter
        Dim DBDataset As New DataSet
        resetDGV()

        Try
            VDB.Open()

            DBDataadapter = New OleDbDataAdapter(SQLString, VDB)
            DBDataadapter.Fill(DBDataset, sTable)

            VDB.Close()

            frmMain.dgv_Voucher.DataSource = DBDataset
            frmMain.dgv_Voucher.DataMember = sTable
            frmMain.dgv_Voucher.Columns("voucher_ID").Visible = False

            VDB.Dispose()
        Catch ex As OleDbException
            frmMain.LogMessage(modMain.msv_sAppname_Short & ", während der Prüfung der Existenz der Tabelle " & modMain.sMSAccess_File_Name & ". Es kam zu folgender Exception : " & ex.Message, 3)
            If VDB IsNot Nothing Then VDB.Close()
        End Try

    End Sub