Dim connstr As String = "DEIN_CONN_STRING"
Dim cn As OleDb.OleDbConnection = New OleDb.OleDbConnection(connstr)
Dim schema As New DataTable
cn.Open()
schema = cn.GetOleDbSchemaTable(OleDb.OleDbSchemaGuid.Catalogs, New Object() _
  {Nothing})
For Each r As DataRow In schema.Rows
   Debug.WriteLine(r("CATALOG_NAME").ToString)
Next
cn.Close()