Private Sub Command100_Click()
On Error GoTo Err_Command100_Click

Dim cnn As New ADODB.Connection
Dim Cmd As New ADODB.Command
Dim rs As ADODB.Recordset
Dim fldLoop As ADODB.Field

    Set cnn = New ADODB.Connection
    cnn.ConnectionString =  "DSN=SQLDB;UID=admin;PWD=;" 
    cnn.Open
    
Query =  "SELECT ..."  
    Set rs = New ADODB.Recordset
    rs.Open Query, cnn
    rs.MoveFirst
    
Do Until rs Is Nothing
        For Each fldLoop In rs.Fields
        If fldLoop.Value = Null Then
           MsgBox ( "No data!" )
           GoTo Exit_Command100_Click:
        End If
Next fldLoop
   
Set rs = rs.NextRecordset
Loop
cnn.Close

Exit_Command100_Click:
    Exit Sub
Err_Command100_Click:
    MsgBox Err.Description
    Resume Exit_Command100_Click
End Sub