Code:
myConn.Open()
myCommand.ExecuteNonQuery()
MessageBox.Show("Database is created successfully", _
"MyProgram", MessageBoxButtons.OK, _
MessageBoxIcon.Information)
Dim DbConStrng2 = "Data Source=.\SQLEXPRESS;AttachDbFilename=" & DbFullPath & ";Integrated Security=True;Connect Timeout=30;User Instance=True"
Dim DbConnection As SqlConnection = New SqlConnection(DbConStrng2)
Dim obj As New SqlCommand
Dim DbReader As SqlDataReader = Nothing
Line no. 114 If createTable(obj, DbConnection, DbReader, DbConStrng2) Then
MessageBox.Show("Tables Created successfully")
End If