Sayın Kadirdursun sanırım aşağıdaki MOdülü eklemeyi unutmuşsunuz..

Option Compare Database

Option Explicit

'**********************************************************

'* Library of Bilgisayarcı Ado

'* www.accesstr.net kullanıcıları için

'* Bilgisayarcı tarafından tasarlanmıştır.

'**********************************************************

Global Rs1 As adodb.Recordset

Global Rs2 As adodb.Recordset

Global Rs3 As adodb.Recordset

Global RsEx As adodb.Recordset

Public Function AdoKapa(i As Integer) As Boolean

On Error GoTo AdoKapaHata

  AdoKapa = False

  Select Case i

  Case 1

    If Not Rs1 Is Nothing Then

      If Rs1.State = adStateOpen Then Rs1.Close

    End If

  Case 2

    If Not Rs2 Is Nothing Then

      If Rs2.State = adStateOpen Then Rs2.Close

    End If

  Case 3

    If Not Rs3 Is Nothing Then

      If Rs3.State = adStateOpen Then Rs3.Close

    End If

  Case 4

   If Not RsEx Is Nothing Then

      If RsEx.State = adStateOpen Then RsEx.Close

    End If

  End Select

  AdoKapa = True

  Exit Function

AdoKapaHata:

  AdoKapa = False

End Function

Public Function AdoAc1(sql As String) As Boolean

  AdoAc1 = True

  On Error GoTo AdoHata

  If IsNull(Trim(sql)) Then Exit Function

  AdoKapa 1

  Set Rs1 = New adodb.Recordset

    With Rs1

      Set .ActiveConnection = CurrentProject.Connection

          .Source = sql

          .LockType = adLockOptimistic

          .CursorType = adOpenKeyset

          .Open

    End With

  AdoAc1 = True

  Exit Function

AdoHata:

  MsgBox Err.Description

  AdoAc1 = False

End Function

Public Function AdoAc2(sql As String) As Boolean

  AdoAc2 = False

  On Error GoTo AdoHata

  If IsNull(Trim(sql)) Then Exit Function

  AdoKapa 2

  Set Rs2 = New adodb.Recordset

    With Rs2

      Set .ActiveConnection = CurrentProject.Connection

          .Source = sql

          .LockType = adLockOptimistic

          .CursorType = adOpenKeyset

          .Open

    End With

  AdoAc2 = True

  Exit Function

AdoHata:

  MsgBox Err.Description

  AdoAc2 = False

End Function

Public Function AdoAc3(sql As String) As Boolean

  AdoAc3 = False

  On Error GoTo AdoHata

  If IsNull(Trim(sql)) Then Exit Function

  AdoKapa 3

  Set Rs3 = New adodb.Recordset

    With Rs3

      Set .ActiveConnection = CurrentProject.Connection

          .Source = sql

          .LockType = adLockOptimistic

          .CursorType = adOpenKeyset

          .Open

    End With

  AdoAc3 = True

  Exit Function

AdoHata:

  MsgBox Err.Description

  AdoAc3 = False

End Function

Public Function AdoAcEx(sql As String) As Boolean

  AdoAcEx = False

  On Error GoTo AdoHata

  If IsNull(Trim(sql)) Then Exit Function

  AdoKapa 4

  Set RsEx = New adodb.Recordset

    With RsEx

      Set .ActiveConnection = CurrentProject.Connection

          .Source = sql

          .LockType = adLockOptimistic

          .CursorType = adOpenKeyset

          .Open

    End With

  AdoAcEx = True

  Exit Function

AdoHata:

  MsgBox Err.Description

  AdoAcEx = False

End Function