Visual Basic para Aplicaciones - Urgente

Hola.
Necesito enlazar una tabla a un DataGrid, yo tengo la siguiente instruccion pero no me llena le DataGrid.si me puedes ayudar gracias.
Dim rs1 As New ADODB.Recordset
rs1.Open "SELECT CodProducto,UnidadMedidad,Articulos.Nombre,Cantidad,CapturaMovimientoDiario.Costo FROM CapturaMovimientoDiario INNER JOIN Articulos ON CapturaMovimientoDiario.CodProducto=Articulos.Codigo WHERE TipoMovimiento= '" & TxtConcepto1.Text & "' AND Numero= '" & TxtNumero1.Text & " '", CnDatos, adOpenKeyset, adLockOptimistic
Set DataGrid1.DataSource = rs1

El problema que se te presenta allí es que El error que te sale es por que el datagrid es un control de tipo hoja de calculo. El recordset que se llena en la consulta no tiene ese formato. Al usar un control de datos ADO pasas directamente el resultado al datagrid, este control evita realizar codigo para rellenar el datagrid, igual el dataenvironment (Entorno de datos). Te recomiendo que los utilices en tiempo de diseño para comprobar. Luego utiliza en tiempo de ejecución. Mas, si no quieres usar el control de datos ni el dataenvironment puedes crear otro recordset darle la estrucutura que deseas y llenarlo con los datos que resultaron de la consulta del primer recordset y podrás mostrar los datos en el datagrid.