> ' 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) >Michel,