Visual Basic - Error refresco grid y texxtbox

Buenos dias , lo preimero gracias por leer mi pregunta y por intentar
responderla.
Tengo un dbgrid y un objeto ado.Desde un formulario añado lineas y en teoria
hago un refresco:

With datPrimaryRSEntradas
.RecordSource = str
.Refresh
End With

With DataGrid1
Set .DataSource = datPrimaryRSEntradas
.Refresh
End With

Pero nada cuando vuelvo al dbgrid no se ha añadido el registro,tengo que
moverme atras y adelante para verlo , también meto un valor en un textbox y
tampoco se refresca. Esto lo he hecho miles de veces y lo tengo en teoria
igual en otras aplicaciones pero no se que pasa aqui y me vuelvo loco.

Lo dicho gracias

el problema es en el redibujado de la pantalla vi algo en la pagina de microsoft por que ellos reconosen que el problema es suyo no le des mas vultas con la base de datos, si lo solucion te aviso y si vos lo solucionas me avisas por favor