problema con visual basic 6

[MISTRAFI]

Hola amigos

soy nueva en el mundo de visual basic y tengo un problema con mi codigo del programa que estoy ejecutando
Problema:

yo tengo una base de datos donde guardo un id y un codigo.
Mi programa tiene una entrada que salta a otra pagina y en esta me pide la contraseña que pertenece al la tabla access a la columna codigo.

Codigo:

Option Explicit
Dim paraula As String 'definir la variable paraula que fa referencia al codic
'== validació de la paraula clau
Private Sub TxtClau_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then '== tecla INTRO ha de saltar al form2
If paraula <> 1234 Then '== incorrecte
MsgBox "Paraula de pas incorrecte. Accés denegat", vbCritical, "Error de seguretat"
End
Else
TxtClau.Visible = False
LabClau.Visible = False
Index.Hide
IClau.Hide
Sortir.Show

End If
Else
paraula = paraula + Chr(KeyAscii)
End If


End Sub

bueno pues donde pone 1234 aqui supongo que tengo que poner una variable que me haga referencia a la columna Codigo pero es que no se como hacerlo, me gustaria que me contestaran lo antes possible
Gracias de antemano.
atentamente

Nieves