Hola a todos, espero porfavor que me puedan ayudar. Gracias.
Este error se genera cuando quiero buscar compras, pero cuando aun no he generado ninguna compra:

Try
cn.Open()
Dim FecDesde, FecHasta As Date

FecDesde = Me.DtpFechaDesde.Text
FecHasta = Me.DtpFechaHasta.Text

Dim cmdListarCompra As New SqlCommand("IF EXISTS(SELECT forma_pago FROM compra_encabezado WHERE forma_pago='EFECTIVO' AND estado='H' AND saldo='0.00')" & _
"SELECT razon," & _
" tipo_comprobante," & _
" idcom=Right('0000000000'+CAST(CAST(Right(compra_en cabezado.idcom,10)AS INT)AS VARCHAR),10)," & _
" f_emision," & _
" total," & _
" acuenta," & _
" saldo" & _
" FROM compra_encabezado" & _
" INNER JOIN Proveedor" & _
" ON compra_encabezado.idprov= proveedor.idprov" & _
" WHERE compra_encabezado.f_emision" & _
" BETWEEN '" + FecDesde + "' AND '" + FecHasta + "'" & _
" AND compra_encabezado.estado='H'" & _
"ORDER BY f_emision ASC", cn)
da = New SqlDataAdapter(cmdListarCompra)
dts = New DataSet
da.Fill(dts)
Me.DgvPagarDeuda.DataSource = dts.Tables(0) 'EL ERROR SEÑALA EN ESTA LINEA DE CODIGO Call Saldos()
Call Contador_de_Registro()
Catch ex As Exception
'mostramos el error
MessageBox.Show("error " & Err.Number.ToString & vbCrLf & ex.Message)
Finally
'cerramos la conexion solo si esta abierta
If (cn.State And ConnectionState.Open) <> 0 Then
cn.Close()
End If
End Try

Debes validar si el dataset trae algun dato. Si la consulta no te generó nada entonces el dataset viene vacio y la tabla cero no existe. Agrega un condicional antes de hacer el llamado al tables(0):

Código:

If dts.Tables.Count > 0 Then
     Me.DgvPagarDeuda.DataSource = dts.Tables(0) 
End If

Hola RoyMata:
Agradezco tu pronta respuesta pero me sigue saliendo el mismo error, le agregué como lo indicaste:

Try
cn.Open()
Dim FecDesde, FecHasta As Date

FecDesde = Me.DtpFechaDesde.Text
FecHasta = Me.DtpFechaHasta.Text

Dim cmdListarCompra As New SqlCommand("IF EXISTS(SELECT forma_pago FROM compra_encabezado WHERE forma_pago='EFECTIVO' AND estado='H' AND saldo='0.00')" & _
"SELECT razon," & _
" tipo_comprobante," & _
" idcom=Right('0000000000'+CAST(CAST(Right(compra_en cabezado.idcom,10)AS INT)AS VARCHAR),10)," & _
" f_emision," & _
" total," & _
" acuenta," & _
" saldo" & _
" FROM compra_encabezado" & _
" INNER JOIN Proveedor" & _
" ON compra_encabezado.idprov= proveedor.idprov" & _
" WHERE compra_encabezado.f_emision" & _
" BETWEEN '" + FecDesde + "' AND '" + FecHasta + "'" & _
" AND compra_encabezado.estado='H'" & _
"ORDER BY f_emision ASC", cn)
da = New SqlDataAdapter(cmdListarCompra)
dts = New DataSet
da.Fill(dts)
If dts.Tables.Count > 0 Then 'INICIO Me.DgvPagarDeuda.DataSource = dts.Tables(0)
End If 'FIN
Call Saldos()
Call Contador_de_Registro()
Catch ex As Exception
'mostramos el error
MessageBox.Show("error " & Err.Number.ToString & vbCrLf & ex.Message)
Finally
'cerramos la conexion solo si esta abierta
If (cn.State And ConnectionState.Open) <> 0 Then
cn.Close()
End If
End Try

Hola RoyMata, ya encontre el error, tenía que quitar algo:
(TE AGRADEZCO DE TODAS MANERAS)

Try
cn.Open()
Dim FecDesde, FecHasta As Date

FecDesde = Me.DtpFechaDesde.Text
FecHasta = Me.DtpFechaHasta.Text

Dim cmdListarCompra As New SqlCommand("IF EXISTS(SELECT forma_pago FROM compra_encabezado WHERE forma_pago='EFECTIVO' AND estado='H' AND saldo='0.00')" & _ 'QUITÉ ESTA LÍNEA DE CÓDIGO"SELECT razon," & _
" tipo_comprobante," & _
" idcom=Right('0000000000'+CAST(CAST(Right(compra_en cabezado.idcom,10)AS INT)AS VARCHAR),10)," & _
" f_emision," & _
" total," & _
" acuenta," & _
" saldo" & _
" FROM compra_encabezado" & _
" INNER JOIN Proveedor" & _
" ON compra_encabezado.idprov= proveedor.idprov" & _
" WHERE compra_encabezado.f_emision" & _
" BETWEEN '" + FecDesde + "' AND '" + FecHasta + "'" & _
" AND compra_encabezado.estado='H'" & _
"ORDER BY f_emision ASC", cn)
da = New SqlDataAdapter(cmdListarCompra)
dts = New DataSet
da.Fill(dts)
If dts.Tables.Count > 0 Then 'INICIO
Me.DgvPagarDeuda.DataSource = dts.Tables(0)
End If 'FINCall Saldos()
Call Contador_de_Registro()
Catch ex As Exception
'mostramos el error
MessageBox.Show("error " & Err.Number.ToString & vbCrLf & ex.Message)
Finally
'cerramos la conexion solo si esta abierta
If (cn.State And ConnectionState.Open) <> 0 Then
cn.Close()
End If
End Try