DataGrid

Hola amigo, vi tus excelentes respuestas y tengo una pregunta que hacerte, mira yo estoy trabajando con VBA en excel, pues el código es casi el mismo, y tengo un par de preguntas.
1. Tengo un datagrid dentro de mi formulario principal, donde muestro los campos, deseo que al hacer clic en un registro también se mueva el recordset en las textbox (cosa que no sucede ahora)
Private Sub UserForm_Activate()
Dim db As String
Set cn = New ADODB.Connection
Set rsEmpleados = New ADODB.Recordset
rsEmpleados.CursorType = adOpenDynamic
db = ThisWorkbook.Path & "\datos.mdb"
With cn
.Provider = "Microsoft.jet.oledb.4.0"
.ConnectionString = "Data Source=" & db
.Open
End With
rsEmpleados.ActiveConnection = cn
rsEmpleados.Open "select * from tabla_empleados"
llenacontroles
With adoempleados
.ConnectionString = cn
End With
Set DataGrid1.DataSource = adoempleados
Label7.Caption = "TOTAL DE EMPLEADOS: " & rsEmpleados.RecordCount
End Sub
'Tampoco funciona el Label7
2. Mi botòn de eliminación no funciona
He probado con SQL y nada, mi tabla se encuentra en access, probé poniendo todos los campos y el resultado es que me vacea la tabla.
Private Sub cmdEliminar_Click()
Dim sql As String
If MsgBox("¿Estas seguro que deseas eliminar el Registro?", vbOKCancel, "Eliminando Registro") = vbOK Then
sql = "delete from TABLA_EMPLEADOS where cod_emple ='" & Val(txtcodigo.Text) & "' "
cn.Execute sql
rsEmpleados.Requery
End If
End Sub
Desde ya muchas gracias.