Function AdoSik()
Dim rst As New ADODB.Recordset
Dim cnn As ADODB.Connection
Dim SQL As String

  Set rst = New ADODB.Recordset
  Set cnn = CurrentProject.Connection
With rst
    .Open Source:="tblLista", ActiveConnection:=cnn, _
      CursorType:=adOpenKeyset, LockType:=adLockOptimistic, _
      Options:=adCmdTableDirect
    .Index = "ID"
    .Seek (3)
  End With
MsgBox rst!Iznos
End Function