Visual Basic - problema con un vector

Buenas como estan?
Bueno mi problema es que en una clase tengo un procedimiento que carga en 3 vectores el nombre, direccion y localidad de un socio los cuales estan subindicados por otro vector que se incrementa a medida que el ciclo avanza. El tema es que como en la tabla tengo el codigo postal de la localidad tengo que ir a sbucar a otro tabla "localidad" su nombre y lo hago de la siguiente manera:

Public Sub s_cantidad()
Dim strsql As String
strsql = "Select * from socios"
Set Rs = New ADODB.Recordset
Rs.ActiveConnection = DB
Rs.Open (strsql), DB, adOpenDynamic, adLockOptimistic

Rs.MoveFirst
Do While Rs.EOF = False
vector_socios.cant = vector_socios.cant + 1
vector_socios.nombre(vector_socios.cant) = Rs!nombre
s_codloc
vector_socios.localidad(vector_socios.cant) = nombrel
vector_socios.direccion(vector_socios.cant) = Rs!direccion
Rs.MoveNext
Loop

End Sub

cuando se ejecuta el procedimiento s_codloc que es el que esta aquia abajo me tira esto
ERROR DE COMPIPLACION
NO COINCIDEN LOS TIPOS

Private Sub s_codloc()

Dim strsql As String

strsql = "select * from localidades" & "where codpostal =" & vector_socios.localidad

Set Rs = New ADODB.Recordset
Rs.ActiveConnection = DB
Rs.Open (strsql), DB, adOpenDynamic, adLockOptimistic
nombrel = Rs!nombre


End Sub

bueo espero su respuesta desde ya muchas gracias
chauuuu

pd: alguien me puede decir que hace el comando LIKE