Dim rs As ADODB.Recordset
    Dim strsql As String
    strsql = "SELECT * FROM TBirimFiyatlar WHERE sirano = " & liste_birimfiyat.Column(0)
    Set rs = CreateObject("ADODB.Recordset")
    rs.CursorType = adOpenKeyset
    rs.LockType = adLockOptimistic
    rs.Open strsql, CurrentProject.Connection
        
    If rs.State = 1 Then
    If Not rs.BOF Then
        bf_pozno = rs("yenipozno")
        bf_eskipozno = rs("eskipozno")
        bf_pozuntipi = rs("pozuntipi")
        bf_tanimi = rs("tanimi")
        bf_uzuntanimi = rs("uzuntanimi")
        bf_tarifi = rs("tarifi")
        bf_birim = rs("birimi")
        bf_kurum = rs("kurum")
        bf_bolum = rs("bolumu")
        bf_2022birimfiyati = rs("2022")
        
    End If
    rs.Close
    End If
    Set rs = Nothing

Option Explicit
Dim Tbl As TBirimFiyatlar
 
Private Sub Form_Close()
For Each Tbl In CurrentDb.TBirimFiyatlar
If Tbl.Properties("Connect") <> "" And Mid(Tbl.Name, 1, 3) = "tbl" Then DoCmd.DeleteObject acTable, Tbl.Name
Next Tbl
Call fSetAccessWindow(1)
End Sub
 
Private Sub Form_Open(Cancel As Integer)
Dim Yer, Prla As String, AVT As DAO.Database
Yer = CurrentProject.Path & "\AVT.accdb"
Set AVT = Application.DBEngine.OpenDatabase(Yer, False, False, ";pwd=parola")
For Each Tbl In AVT.TBirimFiyatlar
If Mid(Tbl.Name, 1, 3) = "tbl" Then DoCmd.TransferDatabase acLink, "Microsoft Access", Yer, acTable, Tbl.Name, Tbl.Name
Next Tbl
Call fSetAccessWindow(0)
End Sub