Imports System.Data.OleDb


Module Module1
    Public conn As OleDbConnection ' объявляем для всего проекта сonn как подключение к внешней базы данных
End Module



Private Sub Est_Li_Zapisi()
    Dim c As New OleDbCommand 
    Dim tempik As Boolean
    c.Connection = conn '
    c.CommandText = "exists (SELECT FIO FROM FIOtable WHERE FIO = '" & FIO1Box.Text & "')"
    tempik = ?????  ' вот тут большой вопрос
End Sub