cara membuat hapus data di vb.net 2008

public function hapus data () as integer
'---------------------------------------------
'class untuk menghapus data
'---------------------------------------------

dim sql as string
dim xcmd as sqlcomand
dim x

sql ="delete from siswa where nis=@nis"

xcmd = new sqlcommand (sql ,con)

xcmd.paramater.addwithvalue("nis", Fnis)
x = xcmd.executenonquery
xcmd.dispose ()

return x

end function