Visual Basic - Ayuda con Refresh Adodc

Cuando agrego un elemento o saco a una tabla con una instruccion sql, y luego hago refresh o requery en el ado y el DBGrid no se me actualizan los datos pero si antes de hacer el Refresh hago un MsgBox asi funciona, necesitario que me digan como puedo solucionar esto. El codigo es

sSql = "DELETE FROM MedicoDiaSemana WHERE IDMedico = " & nroMedico & " AND IDDiaSemana = " & Adodc1.Recordset!IDDiaSemana

cDB.Ejecutar sSql

MsgBox "Se Quitó correctamente", vbInformation, App_Titulo

Adodc1.Refresh
Set TDBGrid1.DataSource = Adodc1
TDBGrid1.Refresh

si saco el msgbox los datos en la grilla no se refrescan

Gracias, Ale.

DataGrid1.ClearFields
DataGrid1.Refresh esto sirbe para limpiar lagrilla si esta con o sin datos
y el ado si tienes datos en la grilla los borra ,si no ,se cae
ADO.Refresh
PRUEBA CON ESTO AJALA TE SIRBA