واقعا موندم چرا یکی جواب نمیده به هر حال خودم پیداش کردم میزارم شاید به درد کسی خورد
On Error Resume Next
If Adotd.Recordset.RecordCount > 0 Then
Adotd.Recordset.MoveFirst
For i6 = 1 To Adotd.Recordset.RecordCount
VS1.ColComboList(41) = VS1.ColComboList(41) & Adotd.Recordset.Fields!id & "- " & Adotd.Recordset.Fields!Name & "|"
Adotd.Recordset.MoveNext
Next i6
End If
پاسخ با نقل قول