Dim rsSrc As ADODB.Recordset
Dim rs2 As ADODB.Recordset
Dim Conn1 As ADODB.Connection

'....

Private Sub LoadRecords()
   Set rs2 = Nothing
   Set rs2 = New ADODB.Recordset
   rs2.Fields.Append "Код", adInteger
   rs2.Fields.Append "Наименование", adVarChar,  255 
   rs2.Fields.Append "Масса", adDouble
   rs2.Open
   
   If rsSrc.State = adStateOpen Then rsSrc.Close
   rsSrc.Open "select * from Table1", Conn1, adOpenStatic, adLockReadOnly, adCmdText
   Do Until rsSrc.EOF
      rs2.AddNew Array("Код", "Наименование", "Масса"), Array(rsSrc("Код"), rsSrc("Наименование"),  0 )
      rsSrc.MoveNext
   Loop
   Set DataGrid1.DataSource = rs2
   rsSrc.Close
End Sub