Dim iCell As Range
Dim tmp As String
rst.Open "SELECT id" & tmp & "FROM tbl1 where id=" & iCell.Value, cn

if (id is null)
то писать "Нет"
else да

   Public Sub Photo1()

Dim Conn As String

Dim cn As ADODB.Connection

Dim rst As ADODB.Recordset

Dim iCell As Range

Dim iArr As Variant, iRow&

Dim iTrr As Variant

Dim tmp As String

Set cn = New ADODB.Connection

Set rst = New ADODB.Recordset

Conn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Initial Catalog=db_spravka;Data Source=spravka\SRVSQLNKC;"

cn.ConnectionString = Conn

cn.Open

  'select @op=[PT_SHORTNAME] from [db_Partners]..[Partner] where [PT_ID]=@ptid

'    Application.ScreenUpdating = False

   

     

   For Each ACell In Range("A2", Cells(Rows.Count, 1).End(xlUp))

rst.Open "SELECT bookid FROM tbl_book_foto where bookid=" & ACell.Value, cn

If ACell.Value = ACell.Value Then

     Cells(ACell.Row, 20).Value = ACell.Value

End If

    

    Next

    Application.ScreenUpdating = True

rst.Close

cn.Close

Set cn = Nothing

End Sub

If ACell.Value = ACell.Value Then
    Cells(ACell.Row, 20).Value = ACell.Value
End If

If rst.recordscount > 0 Then  Cells(ACell.Row, 20).Value = ACell.Value

RST.movelast

Public Function SQLto2CellSimple(sSQL As String, Optional ByVal ServerName$ = "MyServer", Optional ByVal DatabaseName$ = "MyBase", Optional ByVal UserID$ = "", Optional ByVal Password = "")
    'simple Function to get results SQL request in cell.
    '"Microsoft ActiveX Data Objects ***" is require
    Dim oRecordset As ADODB.Recordset ' Object
    Dim oConnection As ADODB.Connection ' Object

    Set oConnection = New ADODB.Connection 'CreateObject("ADODB.Connection") '
    Set oRecordset = New ADODB.Recordset 'CreateObject("ADODB.Recordset") '
    If InStr(1, sSQL, "set nocount on", vbTextCompare) = 0 Then sSQL = "set nocount on; " & vbLf & sSQL

    oConnection.Open "Driver={SQL Server};Server=" & ServerName$ & ";Database=" & DatabaseName$ & ";Uid=" & UserID$ & ";Pwd=;" & Password & ""

    oRecordset.Open sSQL, oConnection, adOpenStatic, adLockOptimistic

    If oRecordset.EOF Then SQLto2CellSimple = "n/a" Else SQLto2CellSimple = oRecordset.GetRows

    Set oConnection = Nothing
    Set oRecordset = Nothing

End Function

=SQLto2CellSimple("SELECT count([EXT_ID]) FROM [DimProduct] where [EXT_ID] = "&A3)

"Да";;"Нет"

For Each ACell In Range("A2", Cells(Rows.Count, 1).End(xlUp))

=IFERROR(SQLto2CellSimple(A1);"")