Visual Basic - Sentencia SQL en un ADOdc? Estoy trancado novato

Aqui aprendiendo a trabajar con un programa que hicimos en un curso de visual basic me encuntro con un problema:

Dim Rsescuela As New ADODB.Recordset
Dim Cadena As String

Private Sub GUARDAR_Click()
sqlescuela = "Select * from Escuela "
sqlescuela = sqlescuela & "where trim(Cod_Escuela)='" & Trim(Text1.Text) & "'"
Rsescuela.Open sqlescuela, Cadena, adOpenDynamic, adLockOptimistic
'verificar si existe la busqueda
If Rsescuela.EOF Then
Rsescuela.AddNew
End If
'Grabar Registro
With Rsescuela
.Fields!Cod_Escuela = Text1.Text
.Fields!Nom_Escuela = Text2.Text
.Update
'Cargar tabla
Set MSescuela.DataSource = Rsescuela
Rsescuela.Close
Form_Load
Command1.SetFocus
End With
End Sub

Con este codigo guardo el contenido de 2 textbox en una sencilla base de datos access el text1 guardo un codigo en numero y el text2 guarda texto.

Pero estoy adaptando el programa para q me guarde 2 nombres en texto, y hay un conflicto ya q creo q la sentencia SQL

sqlescuela = sqlescuela & "where trim(Cod_Escuela)='" & Trim(Text1.Text) & "'"

no puede comparar numeros.. intento cambiando el = por el like pero no sirve je como se hace en SQL server. Estoy seguro q 1 de ustedes sabe como arreglarlo

La función Trim es para eliminar espacios al principio y al final de una "cadena de texto". No funciona con variables numéricas.
En las sentencias sql las variables de texto se encierran entre comillas simples, las numéricas NO.

Dicho esto, la sentencia debería ser así:
sqlescuela = sqlescuela & "where Cod_Escuela = " & Text1.Text