主题：紧急求助

看不出问题，也许你这个代码执行了两次，前面加一个：

MessageBox.show("执行了")

Dim cm As New SQLCommand
cm.CommandText="Insert Into {运单表} (运单号, 日期, 发站, 到站, 发货人, 发货人电话, 发货人地址, 收货人, 收货人电话, 收货人地址, 送货方式, 提货费, 送货费, 运费, 运费小计, 现付, 到付, 回单付, 月结, 回单份数,  经办人, 备注, 代收货款) Values( '" & ydh.text & "','" & Date.Today & "', '" & fz.Text & "', '" & dz.Text & "', '" & fhr.Text & "', '" & fhrdh.Text & "', '" & fhrdz.Text & "', '" & shr.Text & "', '" & shrdh.Text & "', '" & shrdz.Text & "','" & shifou & "' ,'" & thf.Value & "', '" & shf.Value & "', '" & cyf.Value & "', '" & zj.Value & "',' " & xf.Value & "', '" & df.Value & "', '" & hf.Value & "', '" & yj.value & "', '" & hd.Text & "',  '" & jbr.Text & "','" & bz.Text & "', '" & dsf.Value & "')"
cm.C
cm.ExecuteNonQuery
If cm.ExecuteNonQuery = 1 Then
    MessageBox.show("保存成功!","保存",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If