Buscar valores de una tabla y llevarlos al formulario

[Neich]

Hola a todos.
Tengo una duda y espero que me podais echar una mano.
Veamos, dentro de un formulario tengo tres cajas de texto y un boton. Lo que quiero es meter un codigo postal en la caja de texto luego pulsar el boton y que este me busque el registro de ese codigo postal en la tabla para que me lleve los valores de provincia y ciudad a las dos cajas restantes del formulario.


El código que tengo hasta el momento es el siguiente lo he utilizado en access y funciona pero no se llevarlo a vbscript.(solo con el campo ciudad)

Un saludo a todos y gracias

sub ciudadcp_onclick()
Dim VAL As String
Dim cnn As ADODB.Connection
Dim rsSnap As New ADODB.Recordset
Set cnn = CurrentProject.Connection
Open Snapshot type
rsSnap.Open "T____DESP_CODpostal", cnn, adOpenStatic
rsSnap.Find "COD_POSTAL = '" & Me!CPOSTAL & "'"
Me.CIUDAD = rsSnap!PUEBLO
VAL = rsSnap!PUEBLO
CIUDAD.Value = VAL
Me!CIUDAD = rsSnap!PUEBLO
rsSnap.Close
end sub