Private Sub Getir_Click()
    Dim wb As Object, ad As String, alis As Double, veris As Double
    
    Set wb = GetObject(CurrentProject.Path & "\altin.xlsx")
    With wb.Sheets("Sayfa1")
        .Range("Table_0[Ad]").ListObject.QueryTable.Refresh BackgroundQuery:=False
        ad = .Range("A2").Value
        alis = .Range("B2").Value
        veris = .Range("C2").Value
    End With
    CurrentDb.Execute "INSERT INTO Tbl_Altin ([AltýnTuru],[alis], [satis]) VALUES ('" & ad & "', '" & alis & "','" & veris & "')"
    CurrentDb.TableDefs.Refresh
    Form_Frm_Altin_Ust.Refresh
    wb.Close False
    Set wb = Nothing
End Sub