Problemas con un text

Ya se cual es tu problema, le estas asignando a nombrer.text un valor booleano, en ninguna parte estas accediendo a la base de datos a ejecutar la query.
Lo que tienes que hacer es lo siguiente:
Public Base As Object
Public Reg As Object
Public strConexion As String
Public strSQL As String
Public DirectorioBase As String
Public NombreBaseAccess As String
DirectorioBase = App.Path 'instruccion que devuelve ruta completa desde donde se ejecuta esta aplicacion
NombreBaseAccess = "base.mdb"
'String de conexion ADO, donde se indica Driver y Ruta del archivo access
strConexion = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & DirectorioBase & "\" & NombreBaseAccess & ";Uid=Admin;Pwd=;"
Set Base = CreateObject("ADODB.Connection") 'Crea el objeto para referenciar a la base de datos
Base.Open strConexion 'abre la base de datos usando string de conexion
Set Reg = CreateObject("ADODB.Recordset") 'Se crea objeto recordset que contendra resultados de consulta
strSQL = "Select nom_r From repuestos where cod_r='" & codr.Text & "'" 'se ingresa a variable consulta sql
Reg.Open strSQL, Base 'Se envia peticion a base de datos
If Not Reg.EOF Then 'Si no es fin de archivo (EOF) entonces muestra datos capturados
   nombrer.Text = Reg("nom_r")
end if
Reg.Close 'cierra el objeto registro
Base.Close 'cierra la base de datos
Set Reg = Nothing 'desinstancia objeto recordset(libera espacio de memoria)
Set Base = Nothing 'desinstancia objeto Database(libera espacio de memoria)

Disculpa ese directorio base donde lo coloco

desce ese directorio base hasta lo ultimo donde lo coloco en que sub rutina disculpa pero soy india

Me faltó decirte que para este caso de ejemplo el archivo de base de datos debe estar en el mismo directorio desde donde se ejecuta la aplicación.
Respecto a tu pregunta, esa variable puede ir en cualquier parte. La idea siempre es escribir lo menos de código repetitivo, por lo cual seria buena idea crear un módulo donde dejar las variables globales que se usarán en el resto de la aplicación.
Tengo una aplicación de ejemplo que puedes mirar si quieres. Es una que estuve ayudando a un amigo, no esta completamebte terminada, pero tiene lo básico para que aprendas a moverte.
Envíame tu correo para mandarte el código.