Como criar uma base de dados em access via código

[programadorvb6]

Olá boa noite.
Estou com um problema em criar via código VB.Net uma base de dados que contenha uma chave primaria e mais 5 campos fiz assim o código mas não consegui criar a base de dados.
Grato desde já pela vossa atenção.

Imports System.Data.OleDb
Imports System.Text

Public Class Form1
    Public Ligacao As New OleDbConnection
    Public SQL As StringBuilder

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Ligacao.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & My.Application.Info.DirectoryPath & "\Viaturas.mdb"
        SQL = New StringBuilder
        SQL.Append("CREATE TABLE Viaturas [Matriculas] NCHAR (15)  NOT NULL PRIMARYKEY, [Nome] NCHAR (25) NOT NULL,[Empresa] NCHAR (20) NOT NULL,[Piso] NCHAR (6) NOT NULL ,[Ext] NCHAR (6) NOT NULL")

        Executar1(SQL.ToString)
    End Sub

    Public Sub Executar1(ByVal pSQL As String)
        Dim Comando As OleDbCommand = Ligacao.CreateCommand
        Try
            Comando.CommandText = pSQL
            Comando.CommandType = CommandType.Text
            Comando.ExecuteNonQuery()

        Catch ex As Exception
            If Err.Number = 5 AndAlso Err.Number = 5 Then
                MessageBox.Show(ex.Message)
            Else
                MessageBox.Show("Erro descrição : " & vbCrLf & ex.Message & vbCrLf, "Atenção", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End If
        End Try
    End Sub

End Class 

[brunotoira]

Qual é o erro que te dá?

[programadorvb6]

Olá Obrigado por ter respondido o erro é este.

https://imgbox.com/gallery/edit/buyM7bToFN/ylgtpqXtGlQyt06R
 

[programadorvb6]

Resolvido! Obrigado desde já pela vossa ajuda.

Edited November 24, 2019 at 10:49 AM by programadorvb6