Dim con As New SqlConnection("server=[Name of Your SERVER];uid=[User Name];pwd=[Password];database=")
    Dim adap As New SqlDataAdapter("sp_databases", con)
    Dim ds As New DataSet
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        adap.Fill(ds)
        DataGridView1.DataSource = ds.Tables(0)
    End Sub