Sub ExecSQL(mySQL as String, dbConnString as String)
Dim sqlCmd AS SQLCommand
Dim sqlConn as SQLConnection = New SQLConnection(dbConnString)
sqlCmd = New SQLCommand(mySQL,sqlConn)
sqlConn.Open()
sqlCmd.Execute()
sqlConn.Close()
End Sub