Sub GetData(SQL As String, Adress As String)
    Dim DB As Database
    Dim rsData As Recordset
    Dim sData As String
 
    Set DB = OpenDatabase(sDbSavePath, False, False)
 
    Set rsData = DB.OpenRecordset(SQL)
 
    If rsData.EOF = False Then
        rsData.MoveFirst
    End If
 
    Do While rsData.EOF = False
        For i = 0 To rsData.Fields.Count
            sData = sData & rsData ' & IIf(i < UBound(rsData.Fields), "::", "")
        Next i
        SendData sData, Adress
        rsData.MoveNext
    Loop
 
    DB.Close
End Sub