Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
 
        Dim Cmd As OleDb.OleDbCommand
        Dim SQL As String
        Dim objCmd As New OleDb.OleDbCommand
        Dim con As New OleDb.OleDbConnection
        Dim dsf As New DataTable
 
        con.ConnectionString = _
        "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=D:\db3.mdb"
 
 
        SQL = "CREATE TABLE = '" & Text1.text & "' ([Id] COUNTER, [Stock Code]" & _
          "TEXT(10))"
        Cmd = New OleDb.OleDbCommand(SQL, Con)
 
        Con.Open()
        objCmd = New OleDb.OleDbCommand(SQL, Con)
        objCmd.ExecuteNonQuery()
        Con.Close()
 
    End Sub