Tomando en cuenta éste órden de tu query:
Select Horas, Minutos from Presencia where Codigo = '111'
Entonces te quedaría así:
Cita: Dim sHour, sMinutes as String
sHour = ds.Tables(0).Rows(0).Item(0)
sMinutes = ds.Tables(0).Rows(0).Item(1)
Espero te funcione
Salu2
