this project is very important to me and i appreciate your future comments. thanks.
Expand|Select|Wrap|Line Numbers
- Dim cn As New ADODB.Connection
- Dim sql As String
- cn.Open "provider=microsoft.jet.OLEDB.4.0;Data source=C:\db1.mdb;Persist security info=true"
- sql = "update userlog " & _
- "set passlog= '" & txtpass.Text & "'" & _
- " where passlog= '" & txtold.Text & "'" &_
- " where user= '" & Text1.Text & "'"
- cn.Execute (sql)
- cn.Close
- Set cn = Nothing