El problema que tengo debe es sencillo solo que soy nuevo en esto de la programacion de alto nivel. Necesito hacer una busqueda por nombres en una tabla y segun el nombre aplicar un formato determinado. La sentencia SQL la tengo lista
Sql = SELECT * FROM BINES WHERE Nombre = '" & strNombre & "'
lo que no se como hacer es la conexion con la base de datos

La base de datos la tenes en Access... hay muchas formas de hacer la conexion. Yo uso la libreria Microsoft Active Data Objects 2

Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Persist Security Info=False;" & _
"Jet OLEDBatabase Password='contraseña';" & _
"Data Source="base.mdb""

"Provider=Microsoft.Jet.OLEDB.4.0;" 'Si es access superior a 97
"Provider=Microsoft.Jet.OLEDB.3.51;" 'Si es access 97

"Jet OLEDBatabase Password='contraseña';"
'por si le pusiste contraseña a la base

"Data Source="base.mdb" 'De donde viene la tabla


Para conectar la tablas
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset

rst.Open sql, cnn, adOpenDynamic, adLockOptimistic
sql 'Tu consulta
cnn la conexion de arriba

adOpenDynamic
adLockOptimistic
Son los modos de abrir las tablas puedes buscar datos sobre ello