Visual Basic - datagrid que se actualiza solo

hola a todos mi pregunta es como puedo crear un datagrid que se actualize cada 10 segundos lo he intentado con un timer de esta forma:

Private Sub Form_Load()
Call Conectar
frm_Listado.Caption = " Listado de Requerimientos"

Call llena_data => aki lleno por primera vez el datagrid

Timer1.Enabled = True
Timer1.Interval = 5000 => aki lo tengo a 5 seg

End Sub

Private Sub llena_data()
SQL = "SELECT * FROM Sist_Requerimientos "
With rs1
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockReadOnly
.Open SQL, cn
End With

Set DataGrid1.DataSource = rs1
End Sub
Private Sub Timer1_Timer()
Call llena_data
End Sub

pero al entrar en accion el timer me manda el siguiente error:

RUN-TIME ERROR '3705'

la operacion no esta permitida si el objeto esta abierto

esperando su pronta respuesta de antemano gracias

en tu funcion llena_data te falta poner al final:
If Rs1.Status=0 then Rs1.Close

sabes utilizo el codigo ke me diste pero no me funciona lo escribo aca:

Private Sub llena_data()
SQL = "SELECT * FROM Sist_Requerimientos "
With rs1
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockReadOnly
.Open SQL, cn
End With

Set DataGrid1.DataSource = rs1
***********************************
If Rs1.Status=0 then Rs1.Close
***********************************
End Sub

Private Sub Timer1_Timer()
Call llena_data
End Sub

y no me llena el datagrid solo llena la primera selda con un 1 que seria nº de registro luego se ejecuta el timer y me manda el siguiente error :

the current row is not available