Imports System.Data.SqlClient
 
Module Module1
 
    Sub Main()
 
        Dim server As String = ""
        Dim sqlCon As New SqlConnection("Data Source=" + server + ";Integrated Security=True")
        sqlCon.Open()
        Dim sqlCmd As New SqlCommand("sp_databases", sqlCon)
        Dim sqlReader As SqlDataReader
        sqlReader = sqlCmd.ExecuteReader()
 
        While sqlReader.Read()
            Console.WriteLine(sqlReader.GetString(0))
        End While
        Console.ReadKey()
 
    End Sub
 
End Module