i have a problem in connecting in access 2003

here is my code

Module Module1
Public cn As New ADODB.Connection
Public rs As New ADODB.Recordset

Public Sub connection()
cn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Project Management\pm.mdb;Persist Security Info=false;")
End Sub
Public Sub OpenRecordset(ByVal sRecordset As ADODB.Recordset, ByVal sString As String)
sRecordset.CursorLocation = ADODB.CursorLocationEnum.adUseClient
sRecordset.Open(sString, cn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
End Sub
End Module

i have problem in provider.