Al fin encontré la solución:
Código:
If TypeName(DBCombo1.SelectedItem) = "String" Then
MsgBox "No se ha seleccionado ningún elemento", vbCritical
End If
La lógica de esto es que cuando algún elemento está seleccionado SelectedItem es una matriz de Bytes, mientras que cuando no está seleccionado ninguna es un String.
Saludos
