Member Avatar for ryan311

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;")
cn.Open()
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.

  • 2 Contributors
  • 1 Reply
  • 73 Views
  • 11 Hours Discussion Span
  • Latest Post Latest Post by lolafuertes
Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.