Dim Str As String, NTL As Long, IString As String
Dim FieldValue As String, i As Integer
Dim SQLString As String, SQLRows As String
 
Label1.Visible = True
 
ReDim XY(1)
 
Set PDDoc = CreateObject("AcroExch.PDDoc")
Result = PDDoc.Open(Filename)