Function ListDir(ByVal StartDir As String) As Collection

Dim rs As New ADODB.Recordset

rs.Open "TblDosyalar", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

tanımlamamı kodun başlangıcında yapmıştım çünkü
Asıl kod

Function ListDir(ByVal StartDir As String) As Collection

Dim rs As New ADODB.Recordset

If Alb(StartDir) = "müzikler" Then

    rs.Open "TblMuzik", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

    Tablo = "TblMuzik"

ElseIf Alb(StartDir) = "Diziler" Then

    rs.Open "TblDizi", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

    Tablo = "TblDizi"

ElseIf Alb(StartDir) = "Filmler" Then

    rs.Open "TblFilm", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

    Tablo = "TblFilm"

Else

    rs.Open "TblClip", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

    Tablo = "TblClip"

End If

şeklinde bu nedenle genel tanımlamadım. kafa karıştırmasın diyede forma

Function ListDir(ByVal StartDir As String) As Collection

Dim rs As New ADODB.Recordset

rs.Open "TblDosyalar", CurrentProject.Connection, adOpenKeyset, adLockOptimistic



Dim sCurFile As String

Dim sCurDir As String

Dim colDir As Collection



If Right$(StartDir, 1) <> "\" Then StartDir = StartDir & "\"

Set colDir = New Collection

Set ListDir = New Collection



colDir.Add StartDir

While colDir.Count

    'remove current directory from directory list

    sCurDir = colDir.Item(1)

    colDir.Remove 1

    'find all files and subdirectories in current, add to list

    sCurFile = Dir$(sCurDir, vbDirectory)

    

    While Len(sCurFile)

        If (sCurFile <> ".") And (sCurFile <> "..") Then 'get rid of "." and ".."

            If GetAttr(sCurDir & sCurFile) = vbDirectory Then  'add the sub directory

                colDir.Add sCurDir & sCurFile & "\"

            Else 'work on the file

                If DCount("Dosya_yolu", TblDosyalar, "Dosya_yolu='" & sCurDir & sCurFile & "'") > 0 Then

                Else

                ListDir.Add sCurDir & sCurFile

                rs.AddNew

                rs!dosya_yolu = sCurDir & sCurFile

                rs!dosya_ismi = sCurFile

                rs.Update

            End If

        End If

        sCurFile = Dir$

    Wend

    DoEvents

Wend

End Function

bu halini ekledim denemelerimide bu forma yazdığım yaliyle deniyorum.
bu haliyle DCount acceste çalışıyor ama vb6 da dcoınt olmadından yamultuyo beni
diğer kodunuzu rs.find olanı denicem kafam kazan oldu yarın bakıcam müsade ederseniz?