能给点意见吗？

Question

Imports System.Data
Imports System.Data.SqlClientPublic Class ConnDatabase
    Private Function GetConnString() As String
        Dim myConn As String = "Server=.;User ID=sa;Password=1111;Database=music"
        Return myConn
    End Function
    Private Function CarateCommand(ByVal Sql As String, ByVal Param() As SqlParameter, ByVal SqlCmdType As CommandType) As SqlCommand
        Dim myConn As New SqlConnection(GetConnString())
        Dim myCommand As New SqlCommand(Sql, myConn)
        myCommand.CommandType = SqlCmdType
        Dim ParamTemp As SqlParameter
        If Not Param Is Nothing Then
            For Each ParamTemp In Param
                myCommand.Parameters.Add(ParamTemp)
            Next
        End If
        Try
            myConn.Open()
            Return myCommand
        Catch ex As Exception
            Return Nothing
        End Try
    End Function
    Public Overloads Function ExecuteSP(ByVal ProcName As String, ByVal Param() As SqlParameter, ByVal myDataset As DataSet) As Boolean
        Dim myCommand As SqlCommand = CarateCommand(ProcName, Param, CommandType.StoredProcedure)
        Dim myDataAdapter As SqlDataAdapter = New SqlDataAdapter(myCommand)
        Try
            myDataAdapter.Fill(myDataset)
            Return True
        Catch ex As Exception
            Return False
        End Try
    End Function
    Public Overloads Function ExecuteSP(ByVal ProcName As String, ByVal Param() As SqlParameter) As Boolean
        Dim myCommand As SqlCommand = CarateCommand(ProcName, Param, CommandType.StoredProcedure)
        Try
            myCommand.ExecuteNonQuery()
            Return True
        Catch ex As Exception
            Return False
        End Try
    End Function
    Public Overloads Function ExecuteSP(ByVal ProcName As String, ByVal Param() As SqlParameter, ByRef myDataReader As SqlDataReader) As Boolean
        Dim myCommand As SqlCommand = CarateCommand(ProcName, Param, CommandType.StoredProcedure)
        Try
            myDataReader = myCommand.ExecuteReader
            Return True
        Catch ex As Exception
            Return False
        End Try
    End Function
End Class