consulta sobre recordset y grid

alguien me podria ayudar a resolver el siguiente problema:

StrSql = "DELETE from m_usuarios"
StrSql = StrSql & " Where cod_usuario= '" &
frmManUsuarios.dtgUsuarios.Columns(0) & "' "
Set rcsUsuarios = New ADODB.Recordset
rcsUsuarios.Open StrSql, acnProduccion, adOpenDynamic,
adLockOptimistic, adCmdText


StrSql = "select * from m_usuarios"
Set rcsUsuarios = New ADODB.Recordset
rcsUsuarios.Open StrSql, acnProduccion, adOpenDynamic,
adLockOptimistic, adCmdText

'''' en esta linea me da el error "el conjunto de filas no
admite marcadores"
Set dtgUsuarios.DataSource = rcsUsuarios

elimino el registro y luego al querer asignarle un recordset al datagrid

da error.