Llenar un datareader

'Funcion para Llenar un DataReader y Posteriormente utilizarlo en otra cosa, Devuelve False si no se logra Llenar el datareader.
'Cualquier modificacion, Por favor Haganmela saber para que pueda corregir los errores.
 Public Function FillDatareader(ByVal SqlString As String) As MySqlDataReader

  Dim cadena As String
            Try

                cadena = Trim(SqlString)

                If cadena = "" OrElse cadena = Nothing OrElse cadena = String.Empty Then
                    Return Nothing
                End If

               If Open_Conexion Then
                    Comando = New MySqlCommand(cadena, coneccion)
                    Me.Datareader = Me.Comando.ExecuteReader(CommandBehavior.CloseConnection)
                    Return Datareader
                Else
                    Return Nothing
                End If

            Catch ex As MySqlException
                Me._Errores = "Error Mysql, : " & ex.Message & ", " & ex.Number
                Return Nothing
            Catch ex As Exception
                Me._Errores = "Error Exception, : " & ex.Message
                Return Nothing
            Finally
                'Me.Close_Conexion()
            End Try

  End Function