Hello,
Good morning.
The procedure using is shown below
Set rsFill = New ADODB.Recordset
rsFill.Open sSQL, g_dbConnection, adOpenForwardOnly, adLockReadOnly, adCmdText
With g_iGridName(iGrd)
.BeginUpdate
.FillFromRS rsFill, , sGridTableColName
.AddRow
.EndUpdate
End With
Set rsFill = Nothing