Converting Date Format with VBScript in UFT

Function ConvertDate(ByVal sDate, ByVal sFormat)
   Dim d,m,y,NewDate

    d=Day(sDate)
    m=Month(sDate)
    y=Year(sDate)

    If Len(d)=1 Then d = "0" & d
    If Len(m)=1 Then m = "0" & m

    Select Case sFormat
        Case "DD-MM-YYYY"
                    NewDate = d & "-" & m & "-" & y
        Case "DD/MM/YYYY"
                    NewDate = d & "/" & m & "/" & y
        Case "MM/DD/YYYY"
                    NewDate = m & "/" & d & "/" & y
        Case "DD-MON-YYYY"
                    Select Case CInt(m)
                    Case "1" mm = "Jan"
                    Case "2" mm = "Feb"
                    Case "3" mm = "Mar"
                    Case "4" mm = "Apr"
                    Case "5" mm = "May"
                    Case "6" mm = "Jun"
                    Case "7" mm = "Jul"
                    Case "8" mm = "Aug"
                    Case "9" mm = "Sep"
                    Case "10" mm = "Oct"
                    Case "11" mm = "Nov"
                    Case "12" mm = "Dec"
                    End Select
                   
                    NewDate = d & "-" & mm & "-" & y
    End Select
   
    ConvertDate = NewDate
End Function

VBScript Data base function-Execute SQL query in UFT

Function uf_DB_ORA_ExecuteQuery(ByVal DSNName, User, Password, QueryText)
    Const adOpenStatic = 3
    Const adLockOptimistic = 3
    Const adUseClient = 3

    connectionString ="DSN=" & DSNName  & ";UID=" & User & ";PWD=" & Password

    Set objConnection = CreateObject("ADODB.Connection")
    Set objRecordSet = CreateObject("ADODB.RecordSet")
   
    objConnection.Open connectionString

    If Instr(1,UCase(QueryText),"UPDATE") > 0 OR Instr(1,UCase(QueryText),"DELETE") > 0 OR Instr(1,UCase(QueryText),"INSERT") > 0Then
        objConnection.Execute(QueryText)
        objConnection.Execute("Commit;")

        If Err.Number <> 0 Then rc = micFail Else rc = micPass
        uf_DB_ORA_ExecuteQuery = rc

    ElseIf Instr(1,UCase(QueryText),"SELECT") > 0 Then
        objRecordSet.Open QueryText, objConnection
        Set uf_DB_ORA_ExecuteQuery = objRecordSet
    End If

    Set objConnection=Nothing
    Set objRecordSet = Nothing
End Function