to make database table using sql comand

Dim conStr As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\aInven\Database\esay_master_database.mdf;Integrated Security=True;User Instance=True"
Dim DBCon As New SqlConnection(conStr)
Dim obj As SqlCommand
Dim strSQL As String



' Create a table
conStr = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\aInven\Database\esay_master_database.mdf;Integrated Security=True;User Instance=True"
DBCon = New SqlConnection(conStr)
DBCon.Open()
obj = DBCon.CreateCommand()
strSQL = "CREATE TABLE " & TextBox2.Text & " (No int, Date text, Amount money, Cheque money, Cash money, Balance money, AC_No varchar(30), Cheque_no1 varchar(30), Cheque_no2 varchar(30), Released_date_cqe1 text, Released_date_cqe2 text, Value_cqe1 money, Value_cqe2 money PRIMARY KEY(NO))"

' Execute
obj.CommandText = strSQL
Try
    obj.ExecuteNonQuery()
Catch ex As Exception
    MessageBox.Show(ex.Message)
End Try