Erro Apenas No Rs2.fields("hora").value

[mestre fyoda]

erro : BOF OU EOF SÃO VERDADEIROS , OU O REGISTRO ATUAL FOI ...

campo_data.Caption = Date

Set rs = cn.Execute(" Select  * from Agendar_Consulta where data = CONVERT(CHAR,GETDATE(),103 ) ")

Set rs2 = cn.Execute(" Select * from Hora ")

Dim item As ListItem

   While Not rs.EOF

          If rs.Fields("hora").Value = rs2.Fields("hora").Value Then

           Set item = ListView.ListItems.Add(, , rs("hora"))

           item.ListSubItems.Add , , rs("data")

           item.ListSubItems.Add , , rs("tel_res")

           item.ListSubItems.Add , , rs("tel_com")

           item.ListSubItems.Add , , rs("nom_pac")

           rs.MoveNext

           rs2.MoveNext

          Else

           Set item = ListView.ListItems.Add(, , rs2("hora"))

           rs2.MoveNext

         End If

       Wend

       While Not rs2.EOF

            Set item = ListView.ListItems.Add(, , rs2("hora"))

           rs2.MoveNext

         Wend

End Sub

esse erro dá quando na tabela Agendar_Consulta no campo hora esta da seguinte maneira .

14:00

13:00

o erro da porque no 1 campo há um numero maior que nos outros abaixo .

como posso arrumar isso ?

se no campo da tabela estiver assim

13:00

14:00

funciona normalmente .

[mestre fyoda]

ei o problema de cima já resolvi , mas agora estou com um outro ,

o comando convert(char,nomedatabeladobdougetdate(),103) ,só aceita getdate()

ou um campo do banco de dados . como faço para colocar a variavel dat dentro do convert ?