[alsihran]

شكرا لاستجابتك اخي الكريم
قمت بحذفها ومازالت المشكلة قائمة 
ايضا قمت باعادة ترتيب الجملة التالية
ومازالت المشكلة وهذه ا الرسالة تظهر في استعلام الحذف ايضا

كود :

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
       cmd = New SqlCommand("UPDATE INTO TblAccounts SET AccName= @AccName,StartBal= @StartBal where AccID=@AccID", conn)
       With cmd.Parameters

           .AddWithValue("@AccName", txtAccName.Text).DbType = DbType.String
           .AddWithValue("@StartBal", txtStartBal.Text).DbType = DbType.Double
           .AddWithValue("@AccID", txtAccID.Text).DbType = DbType.Int32
       End With
       If conn.State = ConnectionState.Open Then
           conn.Close()
       End If
       conn.Open()
       cmd.ExecuteNonQuery()

       conn.Close()
       frmAcc_Load(Nothing, Nothing)
   End Sub