Creation d'etat sous vb6 avec data report

Il faut essayer cela:

//Avant d'écrire ce code, il faudra d'abord creer ton datareport avec les labels et les textboxs nécessaires

//Tu peux placer le code dans un bouton par exemple

Set rs = New ADODB.Recordset
rs.Open "select * From matable ", cnx, adOpenKeyset, adLockBatchOptimistic


Dim q As Integer
Dim intCtrl As Integer
Dim x As Integer
Dim z As Integer
x = 0
q = 0
z = 0

With nom_du_datareport
.Hide
Set .DataSource = rs
.DataMember = ""
With .Sections("Section1").Controls
For intCtrl = 1 To .Count
If TypeOf .Item(intCtrl) Is RptLabel Then
.Item(intCtrl).Caption = rs.Fields(q).Name & " :"
q = q + 1
End If
If TypeOf .Item(intCtrl) Is RptTextBox Then
.Item(intCtrl).DataMember = ""
.Item(intCtrl).DataField = rs(z).Name
z = z + 1
End If
Next intCtrl
End With
.Refresh
.Show
End With
rs.Close
Set rs = Nothing

salut
http://www.webprofesseur.com/vb6/11188N10.HTM