Die parametrisierte Abfrage erwartet den Parameter, der nicht angegeben wurde

Wenn Sie einen Nullwert an den Parameter übergeben, erhalten Sie diesen Fehler auch nach dem Hinzufügen der Parameter. Versuchen Sie also, den Wert zu überprüfen, und verwenden Sie DBNull.Value

Das wird funktionieren

cmd.Parameters.Add("@Department", SqlDbType.VarChar)

If (TextBox2.Text = Nothing) Then
    cmd.Parameters("@Department").Value = DBNull.Value
Else
    cmd.Parameters("@Department").Value = TextBox2.Text
End If

Dadurch werden die Nullwerte aus der Objektschicht in DBNull-Werte konvertiert, die für die Datenbank akzeptabel sind.