Visual Basic.NET - convertir este còdigo derecordset a dataset!!

Como hago para pasar de recordset a dataset este código, no he podido con él, mirenlo y me avisan gracias!!!!

Private Sub Sumar_Factura()
On Error Resume Next
Dim cadena As String, J As Integer, total As Long, cupones As Long
total = 0
cupones = 0
'Con esta rutina recorremos el recordset ya creado para obtener la sumatoria
'Podría reemplazarse por un Sum pero se perderían los datos del Recordset
dsCotempagoext.MoveFirst()
Do While dsCotempagoext.EOF = False
total = total + rsCotempagoext.Fields("Imp_Debe")
cupones = cupones + 1
dsCotempagoext.MoveNext()
Loop
txtTotal.Text = total
txtCupones.Text = cupones
End Sub

Mira según mi regular conocimiento acerca del Vb Net, tu problema no necesita de un Data Set. Lo que necesitas es un Comand que le de tu consulta a un dataReader, por que solo te dedicas en tu codificación a moverte de una forma ForwardOnly.
Prueba esto:
Public Function Total as Single
Dim cmd as New Oledb.OledbCommand
Dim drCotempagoext as New Oledb.OldebDataReader
Dim mTotal as Single

With Cmd
.connection= (Tu Objeto Connection)
.Commantext=(Tu consulta SQL)
drCotempagoext =.ExecuteReader
End With
While drCotempagoext.Read()
mTotal+=drCotempagoext.item("imp_Debe")
(Aqui haces la codificación de suma para cargar
End While

Return mTotal

cmd=nothing
drCotempagoext=nothing
End Function

txtTotal=Total

Averigua los metodos, propiedades del data Reader, es un objeto muy útil en este tipo de logicas en la cual necesitas realizar una iteración aritmética y funciona como un Recordset Forwardonly del VB 6.0.
Cualquier Duda me devuelves la pregunta. Espero heberte ayudado