Hay algo mejor

Hola a todos:

Me han pasado un codigo para cuando quiero abrir un formulario y que se
llenen de datos, el codigo es bastante complicado, lo que me gustaria
saber si hay algo mas comodo que el codigo que os pongo:

Private Sub frmSocios_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load

Try

Dim oConexion As New SqlConnection

Dim oDataAdapter As SqlDataAdapter

'crear conexion

Dim strcon As String

strcon = "Server=(local);Database=video;Trusted_Connection=TRUE;"

oConexion.ConnectionString = strcon

'crear adaptador

oDataAdapter = New SqlDataAdapter("SELECT * from SOCIOS",
oConexion)

'crear commandbuilder

Dim oCommandBuilder As SqlCommandBuilder = New
SqlCommandBuilder(oDataAdapter)

'crear dataset

Dim odataset As DataSet

odataset = New DataSet

oConexion.Open()

'llenar con el adaptador el dataset

oDataAdapter.Fill(odataset, "socios")

oConexion.Close()

'establecer el indicador del registro

'a mostrar en la tabla

Dim iposicFila As Integer = 0

'cargar columnas del registro en

'los controles del formulario

Dim oDataRow As DataRow

oDataRow = odataset.Tables("socios").Rows(iposicFila)

'cargar los controles del formulario con

'los valores de los campos del registro

Me.txtNumsocio = oDataRow("numsocio")

Catch ex As Exception

'Si se produce algún error

'lo capturamos mediante el objeto

'de excepciones particular para

'el proveedor SqlConnection

MsgBox(ex.Message)

End Try

End Sub



Muchas Gracias