在VB（Visual Basic）中修改密码通常涉及以下步骤：
验证用户输入的旧密码：
确保用户输入的旧密码是正确的。
验证新密码和确认密码：
确保用户输入的新密码与其确认密码一致。
更新数据库中的密码：
如果两次输入的密码都正确，则更新数据库中存储的密码。
```vb
Private Sub Command1_Click（）
' 定义数据库连接对象
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
conn.ConnectionString = "your_connection_string_here"
conn.Open
' 查找用户记录
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open "SELECT * FROM login WHERE username='" & UserName & "'", conn
' 获取当前密码
Dim currentPassword As String
currentPassword = rs.Fields（"pass"）.Value
' 验证旧密码
If Text1.Text = currentPassword Then
' 验证新密码和确认密码
If Text2.Text = Text3.Text Then
' 将新密码转换为十六进制格式（或其他安全格式）
Dim newPassword As String
newPassword = DigestStrToHexStr（Text1.Text）
' 更新数据库中的密码
rs.Fields（"pass"）.Value = newPassword
rs.Update
' 提示密码修改成功
MsgBox "密码修改成功!", vbInformation, "信息"
Else
' 提示新密码和确认密码不一致
MsgBox "您输入的新密码与确认密码不符，请重新输入!", vbExclamation, "提示"
End If
Else
' 提示旧密码错误
MsgBox "用户密码输入错误!请再输一次!", vbOKOnly + vbExclamation, "警告"
End If
' 关闭数据库连接
conn.Close
Set conn = Nothing
Set rs = Nothing
End Sub
' 辅助函数：将字符串转换为十六进制格式
Function DigestStrToHexStr（inputStr As String） As String
Dim md5 As Object
Set md5 = CreateObject（"System.Security.Cryptography.MD5"）
Dim bytes（） As Byte
bytes = md5.ComputeHash（inputStr & vbNullChar）
DigestStrToHexStr = bytes（0） & bytes（1） & bytes（2） & bytes（3） & _
bytes（4） & bytes（5） & bytes（6） & bytes（7） & bytes（8） & _
bytes（9） & bytes（10） & bytes（11） & bytes（12） & bytes（13） & _
bytes（14） & bytes（15）
End Function
```
注意事项：
安全性：
在实际应用中，密码不应以明文形式存储在数据库中。上述示例中使用了MD5哈希算法进行加密，但MD5已被认为是不安全的。建议使用更安全的加密方法，如SHA-256。
错误处理：
在实际应用中，应添加更多的错误处理逻辑，以确保程序的健壮性。
用户输入验证：
确保用户输入的密码符合安全要求，例如长度限制、字符限制等。
通过以上步骤和代码示例，你可以在VB中实现密码的修改功能。