Ok newnovato tienes que realizar el evento de carga de datos de la base de datos
ejemplo
Private Sub Form_activate()
If rs.State = adStateOpen Then
rs.Close
End If
strsql = "SELECT * FROM clientes"
rs.open strsql , cn, adOpenDynamic, adLockOptimistic
'luego haces esto
rs.movefirst
for i = 1 to rs.recordcount - 1
list1.additem rs!cli_coidigo & " " & rs!cli_nombre
rs.movenext
next i
' donde rs!cli_codigo es un campo de la base de datos luego el & es para separar un proximo valor no de datos ni campos si no un texto escrito entre " " le indico que es solo un espacio y el & es para concatenar el proximo dato
end sub
Con esto cada ves que actives el formulario te cargara los valores de la base de datos a tu formulario si quieres agregame
[email protected] y te ayudo en lo que pueda saludos