Oledb connection in .NET7

See more:

VB

Hi Friends,

Can anybody suggest conversion of the code below to the newest version of .NET?

Public Function OpenOLEDBConn(ByVal DB_PATH1 As String) As OleDbConnection
        Dim ConStr1 As String
        ConStr1 = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" & DB_PATH1 & ";Jet OLEDB:Database Password=" & UserPAssword & ";"
        On Error GoTo ErrTrap
        Dim AdConn1 As New OleDb.OleDbConnection(ConStr1)
        AdConn1.Open()
        Return (AdConn1)
        Exit Function
ErrTrap:
        MsgBox(Err.Description, vbCritical)
        End
    End Function

What I have tried:

I have been using the code since long for connection to Microsoft Access Database.