Private Sub Kor(Dx As Double, DY As Double, IDL As Integer, IDT As Integer, K As Boolean)
Dim X1 As Double, X2 As Double, Y1 As Double, Y2 As Double
Dim Db As Database
Dim Rs As Recordset
Dim SQL As String
Dim Id As Integer

On Error GoTo Kraj
Set Db = CurrentDb

SQL = "SELECT * FROM T_Tacke WHERE LokacijaID=" & IDL
Set Rs = Db.OpenRecordset(SQL)
Rs.FindFirst ("Vizura=" & IDT)
X1 = Rs!X
Y1 = Rs!Y
Rs.MovePrevious

X2 = Rs!X
Y2 = Rs!Y
Rs.Close
Set Db = Nothing
If X1 = 0 Or X2 = 0 Or Y1 = 0 Or Y2 = 0 Then GoTo Kraj
Dx = X1 - X2
DY = Y1 - Y2
K = True
Exit Sub
Kraj:
K = False
End Sub