[VB6] DataReport (Errore Stampa)

[StegcO]

Ho un problema con i DataReport, ecco il codice:

Option Explicit
Dim SQL As String

Private Sub Form_Load()
SQL = ("SELECT * FROM Agenda WHERE ID= " & ID_Agenda & " ")
'SQL è giusto
'vari comandi
End Sub

Private Sub cmd_stampa_Click()

Set Rs = New ADODB.Recordset

With Rs
    .ActiveConnection = Conn
    .CursorLocation = adUseServer
    .CursorType = adOpenKeyset
    .LockType = adLockOptimistic
    .Properties("IRowsetIdentity") = True
    .Open SQL, , , , adCmdText
End With

With rpt_agenda
    .Hide
    Set .DataSource = Rs
    .DataMember = ""
    .Sections("rpt_dettaglio").Controls.Item("txt_id").DataMember = ""
    .Sections("rpt_dettaglio").Controls.Item("txt_id").DataField = "ID"
    .Sections("rpt_dettaglio").Controls.Item("txt_societa").DataMember = ""
    .Sections("rpt_dettaglio").Controls.Item("txt_societa").DataField = "Societa"
    .Sections("rpt_dettaglio").Controls.Item("txt_nome").DataMember = ""
    .Sections("rpt_dettaglio").Controls.Item("txt_nome").DataField = "Nome"
    .Sections("rpt_dettaglio").Controls.Item("txt_cognome").DataMember = ""
    .Sections("rpt_dettaglio").Controls.Item("txt_cognome").DataField = "Cognome"
    .Sections("rpt_dettaglio").Controls.Item("txt_indirizzo").DataMember = ""
    .Sections("rpt_dettaglio").Controls.Item("txt_indirizzo").DataField = "Indirizzo"
    .Sections("rpt_dettaglio").Controls.Item("txt_citta").DataMember = ""
    .Sections("rpt_dettaglio").Controls.Item("txt_citta").DataField = "Citta"
    .Sections("rpt_dettaglio").Controls.Item("txt_telefono_1").DataMember = ""
    .Sections("rpt_dettaglio").Controls.Item("txt_telefono_1").DataField = "Telefono_1"
    .Sections("rpt_dettaglio").Controls.Item("txt_telefono_2").DataMember = ""
    .Sections("rpt_dettaglio").Controls.Item("txt_telefono_2").DataField = "Telefono_2"
    .Sections("rpt_dettaglio").Controls.Item("txt_cellulare").DataMember = ""
    .Sections("rpt_dettaglio").Controls.Item("txt_cellulare").DataField = "Cellulare"
    .Sections("rpt_dettaglio").Controls.Item("txt_fax").DataMember = ""
    .Sections("rpt_dettaglio").Controls.Item("txt_fax").DataField = "Fax"
    .Sections("rpt_dettaglio").Controls.Item("txt_mail").DataMember = ""
    .Sections("rpt_dettaglio").Controls.Item("txt_mail").DataField = "Mail"
    .Sections("rpt_dettaglio").Controls.Item("txt_note").DataMember = ""
    .Sections("rpt_dettaglio").Controls.Item("txt_note").DataField = "Notes"
    .WindowState = vbNormal
    .Show vbModal
End With

End Sub

Questo è il mio Report (come vedete i campi ci sono tutti):



e questo è l'errore:



Ho provato a ingrandire le txt ma niente, sempre lo stesso errore.. qualche idea?

Grazie