SQL - Fill

I need to retreive data from my SQL database , table name is CustomerAddress. Why it is not working?

..........
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click



If Me.txtTNum.Text <> "" Then

DataSet11.Clear()

SqlDataAdapter1.SelectCommand.CommandText = "select * from results Where " & _

"transno = " & Me.txtTNum.Text

SqlDataAdapter1.Fill(DataSet11)

Display(DataSet11)



End If

End Sub





Private Sub Display(ByVal DataSet As DataSet)

Dim dataTable As DataTable = DataSet.Tables(0)

If dataTable.Rows.Count <> 0 Then

Dim recordNumber As Integer = Convert.ToInt32(dataTable.Rows(0)(0))

Me.txtAddress.Text = CStr(dataTable.Rows(0)(1))

Me.txtCity.Text = CStr(dataTable.Rows(0)(2))

Me.txtState.Text = CStr(dataTable.Rows(0)(3))

End If

End Sub







End Class