error en codigo de visual

Daviniagj
13 de Septiembre del 2005
hola amigos en un boton tengo este codigo:
Private Sub añadirregistro_Click()
....
Dim registro As ADODB.Recordset

Set conn = New ADODB.Connection
conn.Open cadenaconexion

Set registro = New ADODB.Recordset
registro.CursorType = adOpenKeyset
registro.LockType = adLockOptimistic

campo = \"Exp_Alero\"
tabla = \"EXPEDIENTES ALERO\"

registro.Open \"Select Max(\" & campo & \") as b From \" & tabla, conn

If registro.EOF Or registro.BOF Then
Else
Expediente = CInt(registro.Fields(0).Value) + 1
End If

registro.Close
conn.Close

pero a la hora de ejecutarlo me da errores en la linea del : Private Sub añadirregistro_Click()
y se pone en azul en:
Dim registro As ADODB.Recordset

la accion del boton es k al darle me sume uno del ultimo valor k hay en el campo de una tabla k ese campo es tipo texto por eso me lo tengo k pasar a numerico y sumarle uno.
no se si el codigo para lo k kiero esta bien o no .
si alguien me exa una mano se lo agradeceria weno y a todos os lo agradezco ya de antemano.
saludos

kelly johana
13 de Septiembre del 2005
hola!!!
estas seguro de que solo vas a usar la funcion en un solo formulario porque de lo contrario la funcion deberia ser publica y no privada