How to get details from DataLayer to Presentation Layer ? [Resolved]

As in presentation layer 
Dim objcalevents As BusinessLayer.BAL.CalanderEventBAL = New BusinessLayer.BAL.CalanderEventBAL
        objcalevents.dtp = txtedtp.Text
        objcalevents.ttl = txtettl.Text
        objcalevents.ewhen = txtetime.Text
        objcalevents.ewhere = txteplace.Text
        objcalevents.descri = txtdescri.Text
        objcalevents.createnewevent()

As in business layer: 
Public Function createnewevent()
            Dim objevent As DataLayer.DAL.CalendarEvents = New DataLayer.DAL.CalendarEvents
            Return objevent.NewCalanderEvent(dtp, ttl, ewhen, ewhere, descri)
        End Function

As in Data Layer: 
 Public Function NewCalanderEvent(ByVal dtp As Date, ByVal ttl As String, ByVal ewhen As String, ByVal ewhere As String, ByVal descri As String)
            Dim c1 As MySqlConnection
            Dim cmd As MySqlCommand
            Dim rtn_rslt = String.Empty
            c1 = dbconn
            Try
                c1.Open()
                cmd = New MySqlCommand("sp_createnewevent", c1)
                cmd.CommandType = CommandType.StoredProcedure
                cmd.Parameters.Add("p_dtp", dtp).Value = dtp
                cmd.Parameters.Add("p_ttl", ttl).Value = ttl
                cmd.Parameters.Add("p_ewhen", ewhen).Value = ewhen
                cmd.Parameters.Add("p_ewhere", ewhere).Value = ewhere
                cmd.Parameters.Add("p_descri", descri).Value = descri
                cmd.Parameters.Add(New MySqlParameter("p_result", MySqlDbType.Int16))
                cmd.Parameters("p_result").Direction = ParameterDirection.Output
                rtn_rslt = "Successfully Saved"
                cmd.ExecuteNonQuery()
                c1.Close()
            Catch ex As Exception
            End Try
            Return rtn_rslt
        End Function

        txtedtp.Text = ?
        txtettl.Text = ?
        txtetime.Text = ?
        txteplace.Text = ?
        txtdescri.Text = ?

[Resolved]