Visual Basic - Error en concatenación de sentencia sql

Que tal!!! Tengo un problema con una sentencia sql, parece que no logro concatenar bien, aqui les muestro el código:

El programa esta conectado a una bd access 2003 y lo estoy haciendo con vb6.0

Set miconexion2 = New ADODB.Connection
Set mirecordset2 = New ADODB.Recordset
ruta = App.Path & "\Base de Datos.mdb"

miconexion2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & ruta & ";Persist Security Info=False"
miconexion2.CursorLocation = adUseClient
miconexion2.Mode = adModeReadWrite
miconexion2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ruta

mirecordset2.Source = "Select * from competencia where cod_grado=" & grado & "AND & cod_area =" & area
mirecordset2.Open , miconexion2, adOpenDynamic, adLockOptimistic

MsgBox mirecodrset2!competencia

Set MSHFlexGrid1.DataSource = mirecordset2!competencia

Las variables grado y area son variables enteras y el error que me sale es el siguiente:

Error '-2147217900(80040e14)' en tiempo de ejecución.

Error de sintaxis(falta operador)en la expresion de consulta 'cod_grado=1AND &cod_area=1'

Ojala me puedan ayudar!!!
Gracias!!!

En cod_grado=1AND deja un espacio debe quedar

"Select * from competencia where cod_grado=" & grado & " AND & cod_area =" & area

Espero y te sea de ayuda

Muchas gracias Paloma, lo probe pero me sigue saliendo el mismo error...

"Select * from competencia where cod_grado=" & grado & " AND cod_area =" & area