Ошибка "недопустимое имя таблицы"

Private Sub Создать_табл_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim nmtb As String
        For Each nm As String In ComboBox1.Items
            If nm = TextBox1.Text Then
                TextBox1.Text = " "
                MsgBox("Введите другое название таблицы")
                Exit Sub
            End If
        Next
        If TextBox1.Text = " " Then
            MsgBox("Введите название таблицы")
            Exit Sub
        Else
            nmtb = CStr(TextBox1.Text)
            Con1.Open()
            SqlCom = New OleDb.OleDbCommand("CREATE TABLE [" & nmtb & "] (  [ID] Long Not NULL IDENTITY(1, 1) PRIMARY KEY,  [tip] VarChar(254) Not NULL,  [marca] VarChar(254) Not NULL,  [cod] VarChar(254) Not NULL,  [factori] VarChar(254) Not NULL, [edizm] VarChar(254) Not NULL,  [colvo] Double Not NULL,   [massa] Double Not NULL,  [remark] VarChar(254) Not NULL)", Con1)
            SqlCom.ExecuteNonQuery()
            Con1.Close()
            RefCMB1()
            TextBox1.Text = " "
            nmtb = " "
        End If
 
    End Sub

Private Sub RefCMB1()
        Con1.Open()
        dan1.SelectCommand = New OleDb.OleDbCommand("Select Name from Msysobjects where type = 1", Con1)
        Dim tbl As DataTable
        tbl = Con1.GetOleDbSchemaTable(OleDb.OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, "Table"})
        ComboBox1.Items.Clear()
        For i = 0 To tbl.Rows.Count - 1
            ComboBox1.Items.Add((tbl.Rows(i)!Table_Name.ToString))
        Next
        Con1.Close()
        If ComboBox1.Items.Count > 0 Then
            ComboBox1.Text = ComboBox1.Items(0)
        Else
            ComboBox1.Text = " "
            Exit Sub
        End If
 
    End Sub

SqlCom.ExecuteNonQuery()

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    tbCreate(TextBox1.Text, Path.Combine(Application.StartupPath, "test.mdb"))
End Sub
Public conn As OleDbConnection
Private Sub tbCreate(ByVal tbName As String, ByVal dbPath As String)
    Dim connString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbPath & ";Password=;"
    conn = New OleDbConnection(connString)
    If openConnection() Then
        Dim qq As String = "CREATE TABLE [" & tbName & "] (  [ID] Long Not NULL IDENTITY(1, 1) PRIMARY KEY,  [tip] VarChar(254) Not NULL,  [marca] VarChar(254) Not NULL,  [cod] VarChar(254) Not NULL,  [factori] VarChar(254) Not NULL, [edizm] VarChar(254) Not NULL,  [colvo] Double Not NULL,   [massa] Double Not NULL,  [remark] VarChar(254) Not NULL)"
        Using SqlCom = New OleDbCommand(qq, conn)
            SqlCom.ExecuteNonQuery()
        End Using
    End If
    conn.Close()
End Sub

 = " "

 = Nothing