vb.net adodb movenext, movelast

call baglan()
        Dim tablo As New ADODB.Recordset
        tablo = New ADODB.Recordset
        Dim tablo2 As New ADODB.Recordset
        tablo2 = New ADODB.Recordset
        DataGridView1.Rows.Clear()
        tablo.Open("select * from raporlar where tarih=" & tc(DateTimePicker1.Value) & "", Con)
        If tablo.EOF Then
            DataGridView1.Rows.Clear()
            Con.Close()
            Exit Sub
        Else
            Do While Not tablo.EOF
                tablo2.Open("select * from prsnl_info where prsnl_no=" & tablo.Fields("prsnl_no").Value & "", Con)
                DataGridView1.Rows.Add(tablo.Fields(3).Value, tablo2.Fields(2).Value, tablo.Fields(2).Value,
                                       tablo.Fields(7).Value, Format(tablo.Fields(0).Value, "dd-MM-yyyy"))
                tablo.MoveNext()
            Loop
        End If
        Con.Close()

tablo2.Open("select * from prsnl_info where prsnl_no=" & tablo.Fields("prsnl_no").Value & "", Con)