como refresco un datagrid en vb

[gym1702]

que tal camaradas, quisiera me ayudaran a solucionar esto:
quiero refrescar un data grid para que al momento de ingredar datos en un textbox y guardarlos me aparezcqn en el grid
el codigo que uso es el siguiente:

Set ConnPublic = New ADODB.Connection
Set rsPublic = New ADODB.Recordset

iSql = "select * from trabajos"

ConnPublic.ConnectionString = Cadena
ConnPublic.Open Cadena

rsPublic.CursorLocation = adUseClient
rsPublic.CursorType = adOpenDynamic
rsPublic.LockType = adLockOptimistic
rsPublic.Open iSql, ConnPublic

With rsPublic
.AddNew
!IDtra = txtidtra
!trabajo = txttra
!precio = txtpretra
.Update
.Close
End With


Call IniciarConexion
rs.Open "select * from trabajos", cnn, adOpenStatic, adLockBatchOptimistic
'Call CARGARGRID(DataGrid1)
Adodc1.Refresh
Call Desconectar