Visual Basic.NET - 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

Ese codigo esta bien, puedes optimizarlo pero lo haces menos legible, menos lineas pero peor pa leerlo, de todas formas tienes ejemplos en la msdn ya sea de tu entorno .NET o msdn on line