Private _sqlconnString As String = "Server=METROID\SQLEXPRESS;Integrated" & _
      "Security=SSPI;Database=NORTHWIND"
    Private _sqlConn As New SqlConnection
    Private _sqlDa As SqlDataAdapter
    Private _ds As New DataSet
    Private _dt As DataTable
    Private _dv As DataView
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        If GetSqlDb() Then
            _dt = _ds.Tables("Orders")
            _dv = _dt.DefaultView
            DataGrid1.DataSource = _dv
        End If
    End Sub
 
    Private Function GetSqlDb() As Boolean
        _sqlConn.ConnectionString = _sqlconnString
        _sqlDa = New SqlDataAdapter("Select* From Orders", _sqlConn)
 
        Try
            _sqlDa.Fill(_ds, "Orders")
        Catch ex As System.Exception
            MsgBox(ex.Message)
            Return False
        End Try
 
        Return True
    End Sub