Visual Basic - busqueda en base de datos

Necesito ayuda porfavor es que estoy haciendo un sistema y tengo que controlar una base de datos me sale lo escencial pero la busqueda en la base de datos no me saleee alguien me puede ayudar el codigo es este

Dim bd As Database
Dim rs As Recordset
Private Sub Command1_Click()
Set rs = bd.OpenRecordset("SELECT * from almacen where[nombre]='" & Text1.Text & "'")
End Sub

Private Sub Form_Load()
Set bd = OpenDatabase("bd1.mdb")
Set rs = bd.OpenRecordset("almacen")
End Sub

lo que intento hacer es la busqueda desde una clave escrita en el text1 pero no me sale marca error ayuda porfavor si no morire

asi es como me funciona ami

1:Generar conexion
Public Const MyConnectionString = "Driver={SQL Server}; " & _
"Server=localhost; " & _
"Database=DspmPartes; " & _
"UID=sa; " & _
"PWD=sistemas"

2: Abirla conexion, esto se puede hacer en el load de la forma
Conexion.Open MyConnectionString

3: Agregar las referencias al Microsoft ActiveX Control Objects 2.6 Library

4 definir RS

dim RS as new adodb.recordset

5: Abrir el rs

rs.Open "Instr_SQL",MyCOnnectionString, adOpenStatic, adLockReadOnly

Imprime contenido del campo
Print rs!campo

rs.close
set rs=nothing

aqui que se supone que haces la hora de dar Server=localhost a mi no me jala asi lo que quiero hacer es en un text dar la clave y buscar esa clave en una tabla de mi base de datos apoco asi es? no me sale lo intente asi o quiza lo este haciendo mal pero no no sale te puedo agregar al msn????

Me parece que hablan de cosas distintas, Cle habla de un data y Jesus de un control de datos ADO tienen siertas diferencias

¿Dejaste espacio después del WHERE? porque parece que no.
Si tu campo NOMBRE no contiene espacios no necesitas los corchetes:

Set rs = bd.OpenRecordset("SELECT * from almacen where nombre='" & Text1.Text & "'")