guys:

Thanks. I have solved it with very simple code :


Index = 0
For i = 1 To 19
If rs_a(i).Value = True Then
Check(Index).Value = vbChecked
End If
Index = Index + 1
Next