Visual Basic - Como puedo mostrar el resultado de un select en un

Hola amigos. Como puedo mostrar el resultado de una consulta select en un grid. Tengo un formulario con un control data1 que me rellena el grid, i un boton que me hace el select:
Option Explicit
Dim db As Database
Dim cadena As String
Private Sub Command1_Click()
db.Execute cadena
Data1.Refresh
db.Execute "DROP TABLE temp1"
Data1.Refresh
End Sub
Private Sub Form_Load()
Set db = OpenDatabase("D:\recur&programacion\visual basic\sql_biblioteca\bibli97.mdb")
cadena = "SELECT * INTO temp1 FROM llibre WHERE id='1'"
End Sub
Gracias

Intenta colocando este código en el command1_Click()

Private Sub Command1_Click()
Set Data1.recordset = db.openrecordset("SELECT * INTO temp1 FROM llibre WHERE id='1'")
End Sub

Suerte...

GRACIAS J2ML