Visual Basic.NET - Ayuda con QueryTableAdapter

Hola buen dia

Tiene realmente poco tiempo que me comencé a introducir en .net y por el momento soy parte de un proyecto para migrar un sistema que estaba en VB 6.0 a VB.NET , tengo una duda y espero que alguien pueda ayudarme un poco, de antemano muchas gracias.

Por lo que entiendo en VB 6.0 se hacia uso del Recordset que regresaba el resultado de ejecutar una consulta, lo que se usaba en la versión anterior tiene la sig. Estructura:

Public Fuction Consultar() As Recordset

Y entiendo que en lugar del Recordset, para .net se tendrá que hacer uso de: ‘QueryTableAdapter’ el cual contiene un solo método que devuelve el valor que coincidirá con el valor de devolución de la consulta.

Mi dataSetTableAdapter se llama: dsNegocioTableAdapters, y según yo se tendría que estar haciendo uso de algo así:

Dim newQuery As New dsNegocioTableAdapters.QueriesTableAdapter()

Pero después de escribir dsNegocioTableAdapter no me aparece la propiedad QueriesTableAdapter() y supongo q algo anda mal.

Les agradecería mucho que me dijeran que es lo q estoy haciendo mal.

Saludos :D

Pues, el RECORDSET te devolvia un conjunto de filas dependiendo de tu consulta. AHORA, en el .Net existe el DataSet y Datable para manejar coleccion de datos aqui te dejo un ejemplo sencillo de una cosulta a una BD de access:

Solo uso 1 form, 1 textbox, 1 datagridview:

Imports System.Data.OleDb

Public Class Form1
Dim oConexion As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Archivos de programa\Microsoft Office\Office10\Samples\Neptuno.mdb")
Dim oAdaptador As OleDbDataAdapter
Dim dt As DataTable

Private Sub busca(ByVal strCriterio As String)
Dim strSQL As String
strSQL = "SELECT * FROM CATEGORÍAS WHERE IDCATEGORÍA = " & strCriterio
oAdaptador = New OleDbDataAdapter(strSQL, oConexion)
dt = New DataTable
oAdaptador.Fill(dt)
Me.DataGridView1.DataSource = dt
End Sub

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = Chr(13) Then
busca(Me.TextBox1.Text)
End If
End Sub

End Class