conexion con base de datos

[trasnoc]

me da un error en esta parte pte paso todo el codigo a ver que estoy haciendo mal.... mezcle un poco de tu ayuda con otra ayuda de un compañero pero sigue con errores!!

Imports System.Data.Sql
Imports System.Data.SqlClient
Imports System.Data.OleDb
Imports System.Data


Partial Class rusuario
Inherits System.Web.UI.Page
Dim cadena As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Documents and Settings\Administrador\Escritorio\redhive\App_Data \cruzados.mdf;Integrated Security=True;User Instance=True"
Dim midataset As New Data.DataSet
Dim miconexion As New Data.SqlClient.SqlConnection(cadena)
Dim adp As SqlDataAdapter
Dim tb As DataTable
Dim micomando As New Data.SqlClient.SqlCommand
Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
miconexion.Open()
micomando.CommandText = "select nombre_usuario, contraseña from usuario where id_usuario =1"
micomando.Connection = miconexion
Dim midatadapter As New Data.SqlClient.SqlDataAdapter(micomando)
midatadapter.Fill(midataset)
tb = New DataTable
adp.Fill(tb)
TextBox1.Text = tb.Rows(0)(1)
TextBox2.Text = tb.Rows(0)(2)


'If Me.TextBox1.Text <> "" And Me.TextBox2.Text <> "" And Me.TextBox3.Text <> "" And Me.TextBox4.Text <> "" And Me.TextBox5.Text <> "" Then

'End If


' Response.Redirect("dpersonales.aspx")
End Sub

Protected Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click
Response.Redirect("index.html")
End Sub

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

End Sub
End Class

Y EL ERROR ES ESTE:

Error de servidor en la aplicación '/redhive'.

Referencia a objeto no establecida como instancia de un objeto.

Descripción: Excepción no controlada al ejecutar la solicitud Web actual. Revise el seguimiento de la pila para obtener más información acerca del error y dónde se originó en el código.

Detalles de la excepción: System.NullReferenceException: Referencia a objeto no establecida como instancia de un objeto.

Error de código fuente:


Línea 20: midatadapter.Fill(midataset)
Línea 21: tb = New DataTable
Línea 22: adp.Fill(tb)
Línea 23: TextBox1.Text = tb.Rows(0)(1)
Línea 24: TextBox2.Text = tb.Rows(0)(2)

Archivo de origen: C:\Documents and Settings\Administrador\Escritorio\redhive\rusuario .aspx.vb Línea: 22

Seguimiento de la pila:


[NullReferenceException: Referencia a objeto no establecida como instancia de un objeto.]
rusuario.Button3_Click(Object sender, EventArgs e) in C:\Documents and Settings\Administrador\Escritorio\redhive\rusuario .aspx.vb:22
System.Web.UI.WebControls.Button.OnClick(EventArgs e) +118
System.Web.UI.WebControls.Button.RaisePostBackEven t(String eventArgument) +112
System.Web.UI.WebControls.Button.System.Web.UI.IPo stBackEventHandler.RaisePostBackEvent(String eventArgument) +10
System.Web.UI.Page.RaisePostBackEvent(IPostBackEve ntHandler sourceControl, String eventArgument) +13
System.Web.UI.Page.RaisePostBackEvent(NameValueCol lection postData) +36
System.Web.UI.Page.ProcessRequestMain(Boolean includeStagesBeforeAsyncPoint, Boolean includeStagesAfterAsyncPoint) +5563