Option Explicit

Sub Test() 'Подключить в Tools\References... библиотеку типов Microsoft ActiveX Data Objects 
 Dim con As ADODB.Connection
 Dim cmd As ADODB.Command
 Dim rs As ADODB.Recordset
 Dim i As Long
 Dim b As Byte
 
 Set con = New ADODB.Connection
 con.Open "Provider=VFPOLEDB;Data Source=C:\Temp\BAZA.DBC;" 'Вставить свою строку подключения
 Set cmd = New ADODB.Command
 Set cmd.ActiveConnection = con
 cmd.CommandText = "SELECT podpis FROM <Таблица> WHERE <Ключ>=<Значение>" 'Вставить свой SQL-запрос на выборку
 Set rs = New ADODB.Recordset
 rs.CursorLocation = adUseClient
 rs.Open cmd
 For i = 0 To 7 'Печатаем в окно отладки Immediate первые 8 байтов
    b = rs(0)(i) 'ПредполагаеЦЦа, что general преобразуеЦЦа в байтовый массив
    Debug.Print Chr$(b), b, Right$("0" & Hex$(b), 2)
 Next i
 rs.Close
 con.Close
End Sub