Ciao, io ho il tuo stesso problema, ma un po più avanzato...
il codice sottostante è in vba, comunque non dovrebbe essere difficile ricomporlo in vb6... vedi se ti può essere utile...

Luisa

codice:
Set oApp = CreateObject("internetExplorer.Application")
oApp.Navigate2 "http://www.sito.it"

Do
If oApp.readyState = 4 Then
Exit Do
End If
Loop
oApp.Visible = True
oApp.document.Forms(0).Item("user").Value = "pippo"

oApp.document.Forms(0).Item("password").Value = "pluto"

oApp.document.Forms(0).submit
Do
If oApp.readyState = 4 Then
Exit Do
End If
Loop
'Set oApp = Nothing

oApp.document.Forms(0).submit


End Sub