' Open the data connection
' Set cnn1 = New ADODB.Connection
' strCnn = "Provider=MSDASQL;Persist Security Info=False;Data Source=Xtreme Sample Database;Mode=Read"
' cnn1.Open strCnn
' Create a new instance of an ADO command object
Set datcmd1 = New ADODB.Command
Set datcmd1.ActiveConnection = cnnCMMS
datcmd1.CommandText = "Customer"
datcmd1.CommandType = adCmdTable
' Add the datasource to the report
m_RePort.Database.AddADOCommand cnnCMMS, 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.Customer Name}", 0, 0)