Bueno ahi si entendi bien lo que estas solicitando ahi te va lo que yo hice:
Esto lo declare en un modulo.
Imports System.Data.Odbc
Public Sub InsertRow(ByVal myConnectionString As String, ByVal myInsertQuery As String)
If myConnectionString = "" Then
MsgBox("FALTA PARAMETRO DE CONEXION")
Exit Sub
End If
Dim myConn As New OdbcConnection(myConnectionString)
Dim myOdbcCommand As New OdbcCommand(myInsertQuery)
myOdbcCommand.Connection = myConn
myConn.Open()
myOdbcCommand.ExecuteNonQuery()
myConn.Close()
End Sub
Public Sub cargarDataset(ByVal sentencia As String, ByVal cadenaconexion As String, _
ByRef oDataset As DataSet, ByVal tabla As String)
Dim myConnection As New OdbcConnection(cadenaconexion)
'declaracion del adaptere
Dim adapter As New OdbcDataAdapter(sentencia, cadenaconexion)
'abre la conexion
myConnection.Open()
' llenar con el adaptador el dataset
adapter.Fill(oDataset, tabla)
' cierra la conexion
myConnection.Close()
End Sub
despues lo mando a llamar cada vez que quiera en el sistema de esta manera atravez de una Sentencia.
valor = "Select * from tblNombreTabla where condicion='" +Tex1.text + "'"
Me.sentencia = valor
'creando conexion
Me.tabla = "tblPapeletas"
Me.oDataSet = New DataSet()
cargarDataset(Me.sentencia, Me.cadenaconexion, Me.oDataSet, Me.tabla)
Me.DataGrid.DataSource = Me.oDataSet
Me.DataGrid.DataMember = "tblNombreTabla"
Ahi a donde mando a llamar la informacion es en un datagrid
espero que sea lo que necesitas! cualquier cosa estoy a tus ordenes