Visual Basic - Problema con el datagrid

Primero introduzco información y la guardo y ejecuto el codigo q pongo a continuación por medio de una función para visualizar la información

With Adodc1
.ConnectionString = oConn
.CommandType = adCmdText
.RecordSource = "SELECT * FROM ap_nomina;"
.CursorType = adOpenStatic
End With
Set DataGrid1.DataSource = Adodc1
DataGrid1.Columns(0).DataField = "movimiento"
DataGrid1.Columns(1).DataField = "quincena"
DataGrid1.Columns(2).DataField = "id"
Adodc1.Refresh

Pero no se visualiza y cuandio introduzco por decirlo de alguna forma la segunda información, ejecuto el código anterior de nuevo y aparece la primera informacion y así sucesivamente, cuando lo hago por medio del debug si lo hace incluso si se actualiza mi base pero no se visualiza inmediatamente

Agradeceria la ayuda
:(

Prueba actualizando tu adodc antes de enlazarlo a tu grilla

...
End With
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Columns(0).DataField = "movimiento"
DataGrid1.Columns(1).DataField = "quincena"
DataGrid1.Columns(2).DataField = "id"

:) Gracias, pero ya lo intente y es que con el debug lo voy ejecutando y si lo hace pero cuando le doy ejecutar normal no lo hace:( y ni idea x que, pero muchas gracias

y la grilla no la actualizas?

SI lo actualizo :(

mira... lo probe en mi maquina... y andubo perfecto. Por lo que veo, la cadena de coneccion la pones por codigo... Porque no usas el asistente? quizas no sea del todo correcta y el problema esté por ahi.

Saludos!!!!