Sql insert hatası

[Illuminati]

Öncelikle kodlarım şunlar;

Dim conn As New SqlConnection("Data Source=(local);" & "Initial Catalog=fenisleri;Integrated Security=SSPI")
Dim cmd As New SqlCommand("INSERT INTO tbl_sokak (MahalleID,SokakAdi,Uzunluk,Genislik,YolM2)VALUES( @MahalleID,@SokakAdi,@Uzunluk,@Genislik,@YolM2)", conn)
Dim ds As New DataSet
Dim sayi As Integer

cmd.Parameters.Add(New SqlParameter("@MahalleID", txtmahid.Text))
cmd.Parameters.Add(New SqlParameter("@SokakAdi", txtsokakadi.Text))
cmd.Parameters.Add(New SqlParameter("@Uzunluk", txtuzunluk.Text))
cmd.Parameters.Add(New SqlParameter("@Genislik", txtgenislik.Text))
cmd.Parameters.Add(New SqlParameter("@YolM2", txtuzunluk.Text * txtgenislik.Text))

Try
conn.Open()
sayi = cmd.ExecuteNonQuery
conn.Close()
ds.Clear()
Catch ex As Exception
MsgBox("Veri eklenemedi!" & vbCrLf & "Hata:" & ex.Message)
End Try

If sayi > 0 Then
MsgBox("Veri başarıyla eklenmiştir...")
End If

Bu da hata mesajı;
http://i43.photobucket.com/albums/e3...gi/hatasql.jpg

[SGurel]

SokakID sütununun sıfır uzunluk izni yok, O sütuna sıfır uzunluk izni verebilir veya kodlarında o sütuna değer girişi yapabilirsin.

[Illuminati]

Allow null yani
Hallettım sorunu tesekkurler.