SQL exportar a VISUAL EJEMPLO

Imports System.Data
Imports system.data.sqlClient

Public Class Ejemplo
'Cadena que realiza la conexión
Dim CadConexion as string = "Data source = ; initial catalog = <_bas_e><-base>; integrated security = true"
'Selección de Datos
Dim objeto as string = "Select * from <_bas_e>"
Dim Adaptador as New sqldataadapter(objeto, CadConexion)
'Tabla que almacena los datos
Dim tabla as new DataTable

Private Sub Ejemplo_Load
Try
Adaptador.fill(tabla)
Dim builder as sqlcommandbuilder = New sqlcommandbuilder(adaptador)

'Asignación de valores a los campos del formulario. Esta línea será para cada forma necesaria.
Me.txtcampo.Databindings.add(New binding("TXT", tabla, "<_campodelatabla>"))
Catch ex as exception
'Manejo de errores.
MessageBox.show("ERROR : " + ex.message)
End Try
End Sub
End Class