obtain recordset of an object COM made in VB6 and soon fill dataset

[Yoel Mc Lennan]

Hello Group, I need to obtain recordset of an object COM made in VB6 and
soon fill dataset, some idea of where is the error? Thanks.

Imports System.Data
Imports System.Configuration

Public Class WebForm1
Inherits System.Web.UI.Page
Dim o_interlab As INTERLAB.CLaboratorio

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
'Put user code to initialize the page here
o_interlab = New INTERLAB.CLaboratorio

Dim ds As DataSet
If Not Page.IsPostBack Then
BindGrid()
End If
End Sub

Sub BindGrid()
Dim strSQL As String = "SELECT ShipperID, CompanyName FROM Shippers
ORDER BY CompanyName"
Dim da As New OleDb.OleDbDataAdapter
Dim ds As New DataSet
Dim r As Object
r = o_interlab.ListaNomenclador("A")
da.Fill(ds, r)
vadetalle.DataSource = ds
vadetalle.DataBind()
End Sub
Private Sub ListaElejidos_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim r
r = o_interlab.PrecioAnalito("1", "412", "33", "B")
End Sub
End Class