主题：关于窗口保存修改按钮的问题

重置密码按钮代码如下：

Dim sjhm As String = e.Form.Controls("号码").Value
Dim dr As DataRow
If sjhm = Nothing Then
e.Form.Controls("提示1").Text = "请输入手机号码或卡号,不能留空!"
Else
dr = DataTables("hyuser").Find("手机号码 = '" & sjhm & "' ")
If dr Is Nothing Then
e.Form.Controls("提示1").Text = "该手机号码或卡号不存在!"
Else
e.Form.Controls("提示1").Text = Nothing
将该手机号码的密码字段修改成123456
End If
End If

请问应该怎么写代码啊？