I have installed PHP8 thread safe version but php.ini file is not loading with built-in webserver or any other server?

Private Sub TxtSearch_Change()
    On Error Resume Next
    ListView1.ListItems.Clear
    On Error GoTo 0

    Dim conn As ADODB.Connection
    Set conn = New ADODB.Connection
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:UsersUser-DataworldDesktopProgram progresssample7Repair System 1.mdb.mdb"

    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    rs.CursorLocation = adUseClient
    rs.Open "SELECT * FROM TblCustomer WHERE [JoNo] LIKE '%" & TxtSearch.Text & "%' OR [Name] LIKE '%" & TxtSearch.Text & "%' OR [Serial No] LIKE '%" & TxtSearch.Text & "%'", conn, adOpenDynamic, adLockPessimistic

    If Not rs.EOF Then
        If ListView1.ColumnHeaders.Count = 0 Then
            ' Add column headers if not already added
            ListView1.ColumnHeaders.Add , , "JoNo"
            ListView1.ColumnHeaders.Add , , "Qty"
            ListView1.ColumnHeaders.Add , , "Received Date"
            ListView1.ColumnHeaders.Add , , "Name"
            ListView1.ColumnHeaders.Add , , "Address"
            ListView1.ColumnHeaders.Add , , "Contact No"
            ListView1.ColumnHeaders.Add , , "Problem"
            ListView1.ColumnHeaders.Add , , "Warranty"
            ListView1.ColumnHeaders.Add , , "Type of Machine"
            ListView1.ColumnHeaders.Add , , "Brand Model"
            ListView1.ColumnHeaders.Add , , "Serial No"
            ListView1.ColumnHeaders.Add , , "Findings"
            ListView1.ColumnHeaders.Add , , "Remarks"
            ListView1.ColumnHeaders.Add , , "Advance Payment For Service Charge"
            ' Add more columns as needed
        End If

        Do Until rs.EOF
            Dim Item As ListItem
            Set Item = ListView1.ListItems.Add(, , rs("JoNo"))

            On Error Resume Next
            For x = 1 To 11
                If x <= ListView1.ColumnHeaders.Count Then ' Check if x is within the valid range
                    If Not rs.EOF And Not rs.BOF Then
                        If Not IsNull(rs(x)) Then
                            If IsNumeric(rs(x)) Then
                                Item.SubItems(x) = CStr(rs(x))
                            Else
                                Item.SubItems(x) = CStr(rs(x))
                            End If
                        Else
                            Item.SubItems(x) = vbNullString
                        End If
                    End If
                End If
            Next x
            On Error GoTo 0

            rs.MoveNext
        Loop
    Else
        MsgBox "No Record Found.", vbExclamation
    End If

    rs.Close

    ' Check if "Release Warranty" radio button is selected
    If RdbReleaseWarranty.Value = True Then
        ' Call the "URLoadData" subroutine to update the ListView for "Release Warranty"
        URLoadData conn
    End If

    Set conn = Nothing
End Sub

Private Sub URLoadData(conn As ADODB.Connection)
    ' Fetch data from the "TblUnitRelease" table based on the selected search criteria
    Dim rsRelease As ADODB.Recordset
    Set rsRelease = New ADODB.Recordset
    rsRelease.CursorLocation = adUseClient
    rsRelease.Open "SELECT * FROM TblUnitRelease WHERE [JoNo] LIKE '%" & TxtSearch.Text & "%' OR [Name] LIKE '%" & TxtSearch.Text & "%' OR [Serial No] LIKE '%" & TxtSearch.Text & "%'", conn, adOpenDynamic, adLockPessimistic

    ' Populate the ListView based on the "TblUnitRelease" data
    If Not rsRelease.EOF Then
        ' Clear existing column headers and update the ListView for "Release Warranty"
        ListView1.ColumnHeaders.Clear
        ListView1.ColumnHeaders.Add , , "JoNo"
        ListView1.ColumnHeaders.Add , , "Unit Received Qty"
        ListView1.ColumnHeaders.Add , , "Date Received"
        ListView1.ColumnHeaders.Add , , "Name"
        ListView1.ColumnHeaders.Add , , "Problem"
        ListView1.ColumnHeaders.Add , , "Findings"
        ListView1.ColumnHeaders.Add , , "Type of Machine"
        ListView1.ColumnHeaders.Add , , "Brand Model"
        ListView1.ColumnHeaders.Add , , "Serial No"
        ListView1.ColumnHeaders.Add , , "Unit Status"
        ListView1.ColumnHeaders.Add , , "Warranty Status"
        ListView1.ColumnHeaders.Add , , "Parts Description"
        ListView1.ColumnHeaders.Add , , "Date Release"
        ListView1.ColumnHeaders.Add , , "Grand Total Service Charge"
        ListView1.ColumnHeaders.Add , , "Total Parts Amount"
        ListView1.ColumnHeaders.Add , , "Remarks"
        ' Add more columns as needed

        Do Until rsRelease.EOF
            Dim ReleaseItem As ListItem
            Set ReleaseItem = ListView1.ListItems.Add(, , rsRelease("JoNo"))

            On Error Resume Next
            For x = 1 To 15 ' Adjust the count based on the number of columns in "TblUnitRelease"
                If x <= ListView1.ColumnHeaders.Count Then ' Check if x is within the valid range
                    If Not rsRelease.EOF And Not rsRelease.BOF Then
                        If Not IsNull(rsRelease(x)) Then
                            If IsNumeric(rsRelease(x)) Then
                                ReleaseItem.SubItems(x) = CStr(rsRelease(x))
                            Else
                                ReleaseItem.SubItems(x) = CStr(rsRelease(x))
                            End If
                        Else
                            ReleaseItem.SubItems(x) = vbNullString
                        End If
                    End If
                End If
            Next x
            On Error GoTo 0

            rsRelease.MoveNext
        Loop
    End If

    rsRelease.Close
End Sub