' SQL exec ' expC1 SQL command ' expO1 Connection Public Function SQLExec(ByVal tcSQL As String, ByVal tcConnection As String) As Boolean InitializeDataObject(nSQLMode, tcConnection, tcSQL) Dim llSuccess As Boolean llSuccess = False Try oCommand.Connection = oConnection oCommand.CommandText = tcSQL ' Only add the parameters if we have some If Not oParameters2 Is Nothing Then For Each oDataParameter In oParameters2 oCommand.Parameters.Add(oDataParameter) Next End If oDataAdapter.SelectCommand = oCommand oDataSet = New DataSet ' By default, .NET does not add the specific field length, which is needed in XML as at the other end ' someone would always get memo field instead of character field oDataAdapter.MissingSchemaAction = MissingSchemaAction.AddWithKey oDataAdapter.Fill(oDataSet)