Using SQL command to create a table in database using VB.Net Framework

Note that this required a .Net Framework Application. When Microsoft brought out .Net Core, they stop supporting OleDb

Module Module1
    Sub Main()
        Dim connStr As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\CIM_CourseDevelopment\BillOfMaterial.accdb; Persist Security Info=False"
        Dim cnn As New OleDb.OleDbConnection(connStr)
        Try
            cnn.Open()
            Dim command As New OleDb.OleDbCommand("CREATE TABLE MyTable (ID Integer, Data varchar(50))", cnn)
            command.ExecuteNonQuery()
            cnn.Close()
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try
    End Sub
End Module