Visual Basic - problema urgente

hola estimados saben tengo el siguiente codigo:

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

Call llena_data

Timer1.Enabled = True
Timer1.Interval = 5000

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
If Rs1.Status=0 then Rs1.Close
End Sub

Private Sub Timer1_Timer()
Call llena_data

End Sub

pero no me funciona me manda, primero al hacer form load solo me muestra la primera columna con un registro en este caso 1 y no muestra los demas datos, y cuando se actualiza con el timer me manda el siguiente error : the current row is not available

de antemano gracias por la ayuda

Option Explicit
' agregar referencia MS ActiveX Data Objects 2.x
Private rst As ADODB.Recordset
Private Sub Form_Load()
Call Conectar
Call Llena_data
Timer1.Enabled = True
Timer1.Interval = 5000
End Sub
Private Sub Timer1_Timer()
Call Llena_data
End Sub
Private Sub Llena_data()
Dim cnn As Connection
Set cnn = Conectar
Set rst = New ADODB.Recordset
rst.CursorLocation = adUseClient
rst.Open "SELECT * from Source", cnn, adOpenStatic, adLockBatchOptimistic
Set rst.ActiveConnection = Nothing
Set Me.DataGrid1.DataSource = rst
cnn.Close
Set cnn = Nothing
End Sub
Private Function Conectar() As ADODB.Connection
Set Conectar = New ADODB.Connection
Conectar.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=C:\GTSETUP.mdb;"
End Function

cual es la idea detras del timer?? no me cuadra ...
Suerte

la cosa del timer es que cada 5 seg se esta actualizando el datagrid ....eso es lo que necesito que el datagrid se actualize cada 5 segundos....si alguien me puede ayudar se lo agradeceria...chau