Ho provato con questa funzione
Function IsNothing(varToTest As Variant) As Integer
IsNothing = True
Select Case VarType(varToTest)
Case vbEmpty
Exit Function
Case vbNull
Exit Function
Case vbBoolean
If varToTest Then IsNothing = False
Case vbByte, vbInteger, vbLong, vbSingle, vbDouble, vbCurrency
If varToTest <> 0 Then IsNothing = False
Case vbDate
IsNothing = False
Case vbString
If (Len(varToTest) <> 0 And varToTest <> " ") Then IsNothing = False
End Select
End Function
Che viene richiamata da questa procedure

Private Sub inserisci_Click()
On Error GoTo Err_Comando2_Click

Dim stDocName As String

If IsNothing(Codice_G) Or IsNothing(Luogo) Then
MsgBox ("ERRORE")
Else
stDocName = "query1"
DoCmd.OpenQuery stDocName, acNormal, acEdit
End If

End Sub
Però non funziona, o meglio funziona solo se entrambi i campi sono di tipo text,se uno è di tipo text e uno numererico non va..
Come mai?