Программное создание баз данных на VB.NET (7.0). Мне нужно с помощью интерфейса подключения ODBC создать таблицу в ACCES

Imports System.Runtime.InteropServices
Imports System.IO
 
Module Program
    <DllImport("ODBCCP32.dll", CharSet:=CharSet.Unicode, SetLastError:=True)>
    Public Function SQLConfigDataSource(ByVal hwndParent As IntPtr, ByVal fRequest As UShort, ByVal lpszDriver As String, ByVal lpszAttributes As String) As Boolean
    End Function
 
    Sub Main()
 
        'Проверка существования файла'
        If File.Exists(Path.Combine("C:\DB", "Laab1.accdb")) Then File.Delete(Path.Combine("C:\DB", "Laab1.accdb"))
        'Функция создания новой базы данных в Microsoft Access'
        SQLConfigDataSource(IntPtr.Zero, 1, "Microsoft Access Driver (*.mdb, *.accdb)", "Create_DBV12=C:\\DB\\Laab1.accdb;User Id=Admin;Pwd=;")
        'Установка соединения с базой данных
        Dim connStr As String = "Driver={Microsoft Access Driver (*.mdb, *.accdb)}; Dbq=C:\\DB\\Laab1.accdb;"
        Dim hEnv As IntPtr = IntPtr.Zero
        Dim hDbc As IntPtr = IntPtr.Zero
        Dim retCode As Short = 0
 
        'Создаём таблицу (базу данных)'
        Dim cmdText As String = "Create Table Auto(id2 Autoincrement Primary Key, Surname_client Char(30), Name_client char(20), Pytronamic_client Char(40), Car char(20), client_age integer, contact_phone char(40));"
 
        ' Добавляем записи в таблицу Auto'
        Dim insertSql As String = "INSERT INTO Auto (Surname_client, Name_client, Pytronamic_client, Car, client_age, contact_phone) VALUES (?, ?, ?, ?, ?, ?);"
 
        ' Здесь вы можете вручную задать значения полей для новой записи'
        Dim surname_client As String = "Фамилия"
        Dim name_client As String = "Имя"
        Dim pytronamic_client As String = "Отчество"
        Dim car As String = "Машина"
        Dim client_age As Integer = 74
        Dim contact_phone As String = "Телефон"
    End Sub
End Module