Private rst As ADODB.Recordset
Private ssql As String

Private Sub DataReport_Initialize()
    Set rst = New ADODB.Recordset
    ssql =  "Select Name_NP,Weight,Summa From rep_Sender" 
    rst.Open ssql, Cnn
    Set Me.DataSource = rst
End Sub