各位先生:你们好!
我用update语句进行数据修改,但表面修改了,实际数据库未被修改(刷新)。请高人帮忙修改、指点一下，谢谢了！！我得编码如下：谢谢 北京杨2006－3－7
－－－－－－－－－－－－－－－－－－－
Dim Sql As String
Sql = " update 数据表 SET 编号= '" & Trim(Text1.Text) & "'"

我是如下做的，不知道对不对！谢谢
Dim Sql As String
Sql = " update 数据表 SET 编号= '" & Trim(Text1.Text) & "'"
MsgBox "Ð޸ijɹ¦£¡", vbOKOnly + vbExclamation, "лл"
With grdLoupan
.Row = getrow
.Col = 0
.Text = Text1.Text
.Col = 1
.Text = Combo1.Text
.Col = 2
.Text = DTPicker1.value
.Col = 3
.Text = Combo2.Text
.Col = 4
.Text = Text2.Text
.Col = 5
.Text = Text3.Text
.Col = 6
.Text = Text4.Text
.Col = 7
.Text = Text5.Text
.Col = 8
.Text = Text6.Text
.Col = 9
.Text = Text7.Text
.Col = 10
.Text = Text8.Text
.Col = 11
.Text = Text9.Text
.Col = 12
.Text = Text10.Text
.Col = 13
.Text = Text11.Text
.Col = 14
.Text = Text12.Text
.Col = 15
.Text = Text13.Text
.Col = 16
.Text = Text14.Text
.Col = 17
.Text = Text15.Text
.Col = 18
.Text = Text16.Text
.Col = 19
.Text = Text17.Text
.Col = 20
.Text = Text18.Text
.Col = 21
.Text = Text19.Text
.Col = 22
.Text = Text20.Text
.Col = 23
.Text = Text21.Text
.Col = 24
.Text = Text22.Text
.Col = 25
.Text = Text23.Text
.Col = 26
.Text = Text24.Text
.Col = 27
.Text = Text25.Text
.Col = 28
.Text = Text26.Text
.Col = 29
.Text = Text27.Text
.Col = 30
.Text = Text28.Text
.Col = 31
.Text = Text29.Text
.Col = 32
.Text = Text30.Text
.Col = 33
.Text = Text31.Text
.Col = 34
.Text = Text32.Text
.Col = 35
.Text = Text33.Text
.Col = 36
.Text = Text34.Text
.Col = 37
.Text = Text35.Text
.Col = 38
.Text = Text36.Text
.Col = 39
.Text = Text37.Text
.Col = 40
.Text = Text38.Text
.Col = 41
.Text = Text39.Text
.Col = 42
.Text = Text40.Text
.Col = 43
.Text = Text41.Text
.Col = 44
.Text = Text42.Text
.Col = 45
.Text = Text43.Text
.Col = 46
.Text = Text44.Text
.Col = 47
.Text = Text45.Text
.Col = 48
.Text = Text46.Text
.Col = 49
.Text = Text47.Text
.Col = 50
.Text = Text48.Text
.Col = 51
.Text = Text49.Text
.Col = 52
.Text = Text50.Text
.Col = 53
.Text = Text141.Text
.Col = 54
.Text = Text142.Text
.Col = 55
.Text = Text143.Text
.Col = 56
.Text = Text144.Text
.Col = 57
.Text = Text145.Text
.Col = 58
.Text = Text146.Text
.Col = 59
.Text = Text147.Text
.Col = 60
.Text = Text148.Text
.Col = 61
.Text = Text149.Text
.Col = 62
.Text = Text150.Text
.Col = 63
.Text = Text151.Text
.Col = 64
.Text = Text152.Text
.Col = 65
.Text = Text156.Text
.Col = 66
.Text = Text157.Text
.Col = 67
.Text = Text158.Text
.Col = 68
.Text = Text51.Text
.Col = 69
.Text = Text52.Text
.Col = 70
.Text = Text53.Text
.Col = 71
.Text = Text54.Text
.Col = 72
.Text = Text55.Text
.Col = 73
.Text = Text56.Text
.Col = 74
.Text = Text57.Text
.Col = 75
.Text = Text58.Text
.Col = 76
.Text = Text59.Text
.Col = 77
.Text = Text60.Text
.Col = 78
.Text = Text61.Text
.Col = 79
.Text = Text62.Text
.Col = 80
.Text = Text63.Text
.Col = 81
.Text = Text64.Text
.Col = 82
.Text = Text65.Text
.Col = 83
.Text = Text66.Text
.Col = 84
.Text = Text67.Text
.Col = 85
.Text = Text68.Text
.Col = 86
.Text = Text69.Text
.Col = 87
.Text = Text70.Text
.Col = 88
.Text = Text71.Text
.Col = 89
.Text = Text72.Text
.Col = 90
.Text = Text73.Text
.Col = 91
.Text = Text74.Text
.Col = 92
.Text = Text75.Text
.Col = 93
.Text = Text76.Text
.Col = 94
.Text = Text77.Text
.Col = 95
.Text = Text78.Text
.Col = 96
.Text = Text79.Text
.Col = 97
.Text = Text80.Text
.Col = 98
.Text = Text81.Text
.Col = 99
.Text = Text82.Text
.Col = 100
.Text = Text83.Text
.Col = 101
.Text = Text84.Text
.Col = 102
.Text = Text85.Text
.Col = 103
.Text = Text86.Text
.Col = 104
.Text = Text87.Text
.Col = 105
.Text = Text88.Text
.Col = 106
.Text = Text89.Text
.Col = 107
.Text = Text90.Text
.Col = 108
.Text = Text91.Text
.Col = 109
.Text = Text92.Text
.Col = 110
.Text = Text93.Text
.Col = 111
.Text = Text94.Text
.Col = 112
.Text = Text95.Text
.Col = 113
.Text = Text96.Text
.Col = 114
.Text = Text97.Text
.Col = 115
.Text = Text98.Text
.Col = 116
.Text = Text99.Text
.Col = 117
.Text = Text100.Text
.Col = 118
.Text = Text101.Text
.Col = 119
.Text = Text102.Text
.Col = 120
.Text = Text103.Text
.Col = 121
.Text = Text104.Text
.Col = 122
.Text = Text105.Text
.Col = 123
.Text = Text106.Text
.Col = 124
.Text = Text107.Text
.Col = 125
.Text = Text108.Text
.Col = 126
.Text = Text109.Text
.Col = 127
.Text = Text110.Text
.Col = 128
.Text = Text111.Text
.Col = 129
.Text = Text112.Text
.Col = 130
.Text = Text113.Text
.Col = 131
.Text = Text114.Text
.Col = 132
.Text = Text115.Text
.Col = 133
.Text = Text116.Text
.Col = 134
.Text = Text117.Text
.Col = 135
.Text = Text118.Text
.Col = 136
.Text = Text119.Text
.Col = 137
.Text = Text120.Text
.Col = 138
.Text = Text121.Text
.Col = 139
.Text = Text122.Text
.Col = 140
.Text = Text123.Text
.Col = 141
.Text = Text124.Text
.Col = 142
.Text = Text125.Text
.Col = 143
.Text = Text126.Text
.Col = 144
.Text = Text127.Text
.Col = 145
.Text = Text128.Text
.Col = 146
.Text = Text109.Text
.Col = 147
.Text = Text130.Text
.Col = 148
.Text = Text131.Text
End With
Exit Sub
rs_zhugang.MoveNext
modifyerror:
MsgBox Err.Description
End Sub

蓝鲸你好!
又麻烦你了,不好意思.鄙人水平低呀!没办法只好又请教、打扰了。我用的是VB编程，拜托版主帮忙。谢谢！！

rs_zhugang.MoveNext
ADO.net没这种语法啊