Dim str As String
        Dim r = MsgBox("确定要删除吗？", MsgBoxStyle.YesNoCancel, "")
        If r = vbOK Then
            str = "delete from salesorder where 订单编号='" & ComboBox2.Text.Trim() & " '"
            sqlcon.Open()
            Dim sqlcmd As New System.Data.SqlClient.SqlCommand
            sqlcmd.Connection = sqlcon
             = str
            sqlcmd.ExecuteNonQuery()
            MsgBox("删除成功！", MsgBoxStyle.OkOnly)
            sqlcon.Close()
            str = ""
        Else
            MsgBox("删除失败！", MsgBoxStyle.OkOnly)
        End If
登陆时使用相同连接来查询用户名及密码,所以连接应该不会错,与config文件中一样!
已经用了三种方法,不能实现删除!
sa 空密码,表权限正常,求助高手

Dim r
        r = MsgBox("确定要删除吗？", MsgBoxStyle.YesNoCancel, "")
        If r = vbOK Then
            Dim i As String = CStr(ComboBox1.Text)
            Me.SalesorderdetailsTableAdapter.Delete(i)
            Me.SalesorderdetailsTableAdapter.Update(Me.Pepdt.salesorderdetails)
            MsgBox("删除成功！", MsgBoxStyle.OkOnly)
        Else
            MsgBox("删除失败！", MsgBoxStyle.OkOnly)
        End If
第一种方法，也是删除失败，头痛！！

有人能帮我找找问题出在哪么？谢谢！没时间了！！！

真要解决问题时,发现自已什么都没学!!!

晕死了,原来r=6就可以了,是不是你们觉得我太弱而不想回答问题?太不厚道了．终于心情好了！
要用的时候，发现自已什么都没学！