Проверка существования БД на сервере SQL

Function GetBases()
        Dim DBlist As New ArrayList
        Dim reader As SqlDataReader
        Dim MyConn As New SqlClient.SqlConnection
        MyConn.ConnectionString = "Data Source=" & Me.cbxServName.Text & ";User ID=" & Me.txtUserID.Text & ";Password=" & Me.txtPassword.Text
        Dim query As String = "sp_databases"
        Dim command As SqlCommand = New SqlCommand(query, MyConn)
        Try
            MyConn.Open()
            reader = command.ExecuteReader
            While reader.Read()
                DBlist.Add(reader("DATABASE_NAME"))
            End While
            reader.Close()
            MyConn.Close()
        Catch ex As SqlException
            mess = (ex.Message)
        End Try
        Return DBlist
    End Function

Private Sub TestBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TestBtn.Click
        OpenSQLConnection()
        GetBases()
    End Sub
    Function GetBases()
        Dim DBlist As String
        Dim reader As SqlDataReader
        Dim query As String = "select * from sysdatabases where name = '" & DBNameTxt.Text & "'"
        Dim command As New SqlCommand(query, connection)
        reader = command.ExecuteReader
        reader.Read()
        DBlist = (reader("name"))
        reader.Close()
        connection.Close()
        Select Case DBlist
            Case DBlist = DBNameTxt.Text
                DbExist = True
            Case Else
                DbExist = False
        End Select
        Return DbExist
    End Function

Case DBlist = DBNameTxt.Text