पैरामीटरयुक्त क्वेरी उस पैरामीटर की अपेक्षा करती है जो आपूर्ति नहीं की गई थी

यदि आप पैरामीटर के लिए शून्य मान पास करते हैं, तो आपको पैरामीटर जोड़ने के बाद भी यह त्रुटि मिलेगी, मान की जांच करने का प्रयास करें और यदि यह शून्य है तो DBNull.Value

यह काम करेगा

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

यह ऑब्जेक्ट लेयर से शून्य मानों को डेटाबेस के लिए स्वीकार्य DBNull मानों में बदल देगा।