Private Sub cmdADO_Click()
    Dim fld As FieldObject
    Dim strCnn As String
    
    ' Open the data connection
    Set cnn1 = New ADODB.Connection
    strCnn = "Provider=SQLOLEDB.1;UID=sa;PWD=password;User  ID=sa;Initial Catalog=databasename;DataSource=servername"
   
    cnn1.Open strCnn

    ' Create a new instance of an ADO command object
    Set datcmd1 = New ADODB.Command
    Set datcmd1.ActiveConnection = cnn1
    datcmd1.CommandText = "select * from TableName"
    datcmd1.CommandType = adCmdText
    
    ' Add the datasource to the report
    m_Report.Database.AddADOCommand cnn1, datcmd1
    ' Add a new field object to the report and set the field object to use
    ' the new data source.
    Set fld = m_Report.Section3.AddFieldObject("{ado.TableName FieldName}", 0, 0)
    LoadReport
End Sub

but i got a runtime error : argment ou appel de procedure incorrect

this message is in french because i have vb 6 french edition

can you help me to find a way for working with sql server 2000 database, if you can send a little sample i would be greatful

sincerely ben alaya mohsen."