Visual Basic - mostrar Recordset en Control BDGrid

La primera duda que tengo es donde está el control grid. ya que no poseo dicho ícono y requiero agregarlo, pues en el menú de componentes no me aparece, deseo saber como agregar el control BDgrid a mi formulario. No se cual es el ícono, ni tampoco lo tengo en el menú. por otro lado. Tengo entendido que puedo mostrar el resultado de un objeto recordset en este BDGrid, o tambien a través de un Text box. Estoy usando el siguiente código de prueba sobre el command button
Private Sub Command2_Click()
Dim BD As Database, tablacoches As Recordset
Dim cadenaSQL As String
Dim dime As String

Set BD = OpenDatabase("C:\redice.mdb")
cadenaSQL = "SELECT * FROM Empleados WHERE " _
& "nombre=marcos;"
Set tablacoches = BD.OpenRecordset(cadenaSQL)
End Sub

lo que deseo es saber como mostrar el resultado de la consulta en un BDgrid, y en un text box. Este debe hacer una busqueda en la tabla enpleados, y buscar si existe un registro que contenga a marcos en el campo nombres de la BD redice.mdb

gracias por cualquier recomendación

el control DBGRID está en Microsoft Data Bound Grid Control agrégalo a los controles.
Por otro lado, la sentencia SQL creo que tiene un error al decir que busque a marco

yo la escribiría

nombre="+chr(34)+"marco"+chr(34)

si coges la línea completa y la llevas al debug debe salir esta sentencia

SELECT * FROM Empleados WHERE nombre="marcos"

espero haberte ayudado, saludos

Para que te muestre el DBGrid es Microsoft Data Bound Grid Control 5.0 (SP3), y con respecto a que te muestre informacion utiliza el control Data, y lo otro lo puedes hacer de esta manera:
Private Sub Command2_Click()
Dim BD As Database, tablacoches As Recordset
Dim cadenaSQL As String
Dim dime As String

'Observacion: Text1 es el nombre a buscar logicamente tienes que capturarlo

Set BD = OpenDatabase("C:\redice.mdb")
cadenaSQL = "SELECT * FROM Empleados WHERE " _
& "Nombre ='" & Text1 & "';"
Set tablacoches = BD.OpenRecordset(cadenaSQL)
If tablacoches.RecordCount > 0 Then 'Regresa mas de un registro
Text1 = tablacoches!Nombre
Else
MsgBox "No Existe Informacion", vbInformation
End If
End Sub