Visual Basic - No Actualiza el Datagrid

Hola a todos, tengo un problema, que cuando agregue un datagrid al codigo no me actualizo mas hasta que no cierro y abro la base. El codigo es el siguiente

Public cn As ADODB.Connection
Public rs As ADODB.Recordset
Sub abrir()
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.Provider = "Microsoft.ACE.OLEDB.12.0"
cn.ConnectionString = "User id = admin; password =; data source = C.accdb"
cn.Open
rs.CursorLocation = adUseClient
rs.Open "Select * from cP", cn, adOpenStatic, adLockOptimistic

Set Text1.DataSource = rs
Text1.DataField = "aNombre"
End Sub

Hasta aca todo bien, si modifico el Text1, me actualiza en todas las aplicaciones que tenga abierta de inmediato. Pero despues agregue:

Set DataGrid1.DataSource = rs.DataSource

Desde que agregue en datagrid cuando modifico en el text1 solamente me modifica en la PC que lo hice y en las otras no lo cambia hasta que cierro y abro la BD.

Muchas gracias a todos!!!!

Set DataGrid1.DataSource = rs.DataSource

Despues de esa linea coloca

Datagrid1.Refresh()

Saludos