Visual Basic

Dim startBrowser As New Process()
startBrowser.StartInfo.UseShellExecute = True
startBrowser.Start("http://www.codeproject.com")

Imports System.Data.SqlClient
..............
................

    Dim ds1 As New DataSet()
    Dim adap As New SqlDataAdapter()
    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim con1 As New SqlConnection("Data Source=(local); User ID=sa;Initial Catalog=pubs;password=;")
        Dim com As New SqlCommand("select name from student where roll = @Roll", con1)
        ds1.Clear()
        adap.SelectCommand.Parameters.Add("@Roll", TextBox1.Text.trim)
        adap.SelectCommand = com
        adap.Fill(ds1, "student")
        TextBox2.Text = ds1.Tables("student").Rows(0).Item("name")

    End Sub

........................
........................

If Not dsNewData Is Nothing Then<br />
                If dsNewData.Tables.Count > 0 Then<br />
                    If Not dsNewData.Tables("TableName") Is Nothing Then<br />
                    'If u want u can check for dsNewData.Tables("TableName").Rows.Count>0<br />
                        MessageBox.Show("Table has :" & dsNewData.Tables("TableName").Rows.Count & " Rows")<br />
                    End If<br />
<br />
                End If<br />
            End If

For intRowIndex = 0 To pi_dtTable.DefaultView.Count - 1<br />
        MessageBox.Show(pi_dtTable.DefaultView.Item(intRowIndex).Item("ColName"))<br />
    Next