' Execute a SQL script ' expC1 Script ' expL1 Execute with results Public Function ExecuteSQLScript(ByVal tcScript As String, Optional ByVal tlExecuteWithResult As Boolean = False) As Boolean Dim lcConnectionString As String = "" Dim lcScript As String = "" Dim llSuccess As Boolean = False Dim lnDateNow As Double = 0 Dim lnDateNow2 As Double = 0 Dim lnElapse As Double = 0 Dim loServer As Server = Nothing Dim loServerConnection As ServerConnection = Nothing Dim loSQLConnection As SqlConnection = Nothing ' Reset the values cScriptMessage = "" nDuration = 0 ' Start time lnDateNow = Date.Now.Ticks ' Initialize the data object If Not InitializeDataObject("") Then Return False End If Try ' Get the proper definition as per the current scope If oProcess Is Nothing Then lcConnectionString = oApp.aConnection(nConnectionString, 1) Else lcConnectionString = oProcess.aConnection(nConnectionString, 1) End If ' Initialize the SMO object loSQLConnection = New SqlConnection(lcConnectionString) loServerConnection = New ServerConnection(loSQLConnection)The last line gives this message :