vb执行update 語句后，数据库数据无变化

vb 有如下代码，连接的Oracle数据库。程序执行无报错，但是数据库中数据表无变化！！！
求解？

Public adocn As New ADODB.Connection

Public Sub Adocn_Connection()
Set adocn = New ADODB.Connection
adocn.CursorLocation = adUseClient
adocn.ConnectionString ="Provider=MSDAORA.1;Password=123456;User ID=ABC;Data Source=dcqs;Persist Security Info=True"
adocn.Open
End Sub 

Private Sub CmdReset_Click()
Dim StrReset  As String
Dim RsReset As New ADODB.Recordset

Call Adocn_Connection

RsReset.CursorLocation = adUseClient

StrReset = "update filedata set a='1' where  b=' " & Trim(Txt.Text) & "'"

RsReset.Open StrReset, adocn, adOpenDynamic, adLockBatchOptimistic '.Execute(StrReset)

End Sub

b=' " 这里多了个空格

 StrReset = "update filedata set a='1' where  b='" & Trim(Txt.Text) & "'"

这条sql能在数据库执行有效过吗

检查下sql语句 而且记得要commit提交事务

需要用refresh更新操作或移动数据库记录指针。

记得 commit；