Code:
' To create table in database 2
Const strConnection As String = "Provider=MSDASQL.1;Persist Security Info=False;User ID=root;Data Source=database 2"
Dim cnn As New ADODB.Connection
Dim cmd As New ADODB.Command
strName = InputBox("Enter table name:", "Table Name")
cnn.ConnectionString = strConnection
cnn.Open
cmd.ActiveConnection
Leave a comment: