Visual Basic - recuperar info de una tabla de sql

Buenas,

Soy novatisimo jajaja
me gustaria llenar en una combo todos los datos de una tabla de sql pero con este codigo solo lleno uno, que hago mal...

Private Sub Combo1_GotFocus()

ssql = \"select* from Tipocd\"
WRs.CursorLocation = adUseClient
WRs.Open ssql, L_Conn1, adOpenDynamic, adLockOptimistic
If WRs.EOF = False Then
Combo1.Text = WRs!Tipocd
WRs.MoveNext

Primero, felicidades, pues cuando ya tenía algo de experiencia con el lenguaje, no conocía ADO, pero bueno, el problema que tienes es que si vas a llenar un combo sería con un ciclo:

while not WRs.EOF
Combo1.additem WRs!Tipocd
WRs.MoveNext
wend

Mira que no pongo WRs.EOF = True, porque es redundante, y la comparación gasta tiempo de proceso del procesador (valga la redundancia).

Gracias mil :)