Den parameteriserede forespørgsel forventer den parameter, der ikke blev leveret

Hvis du sender null-værdi til parameter, vil du få denne fejl, selv efter du har tilføjet parameteren, så prøv at kontrollere værdien, og hvis den null, så brug DBNull.Value

Dette vil virke

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

Dette vil konvertere null-værdierne fra objektlaget til DBNull-værdier, der er acceptable for databasen.