Olha pra vc entender o q estou falando faça um novo projeto e monte um banco de dados com um campo chamado "situacao" do tipo sim/não se for no access ou do tipo boolean.

Pra facilitar no seu projeto coloque um adocontrol, um listbox com a propriedade Style = Checkbox.

Depois é só colocar este código:

'******************************************************

Dim rs As ADODB.Recordset, i As Integer

Private Sub Form_Load()
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "Select * from t", Adodc1.ConnectionString
rs.MoveF irst

While Not rs.EOF
List1.AddItem "Situacao"
If rs!Sit Then
 List1.Selected(i) = True
Else
List1.Selected(i) = False
End If
rs.MoveNext
i = i + 1
Wend

End Sub
'******************************************************

Sendo "Sit" o nome do campo booleano na tabela "T"

Tente e se ainda não entender eu faço e mando este pequeno projeto ok??

t+