مشکل این کد کجاست؟

[shocraneh]

با وجودی که رمز عبور رو عوض می کنه پیغام ام کاربری یا كلمه عبورقبلی نادرست می باشد را می دهد



Dim cn As New OleDbConnection(strCnn)
Dim struser As String = "SELECT * FROM Tbllogin WHERE (AdminUsername=@admin) and (AdminPassword=@adminpass)"
Dim Cmd As New OleDbCommand(struser, cn)
Cmd.Parameters.AddWithValue("@admin", Txtusername.Text)
Cmd.Parameters.AddWithValue("@adminpass", TxtOldpassword.Text)
cn.Open()
Dim dr1 As OleDbDataReader
dr1 = Cmd.ExecuteReader()
If (dr1.Read()) Then
cn.Close()
Dim cn1 As New OleDbConnection(strCnn)
Dim username = Txtusername.Text.ToString()
Dim strlogin As String = "UPDATE TblLogin SET AdminPassword=@pass WHERE AdminUserName='" + username.Trim + "'"
Dim Cmd1 As New OleDbCommand(strlogin, cn1)
Cmd1.Parameters.AddWithValue("@pass", TxtNewpassword.Text.Trim)
cn1.Open()
Cmd1.ExecuteNonQuery()
cn1.Close()
LblAlter.Visible = True
LblAlter.Text = "تغییر رمز با موفقیت انجام شد"
Exit Sub

Else
cn.Close()

LblAlter.Text = "نام کاربری یا كلمه عبورقبلی نادرست می باشد "
Exit Sub
End If

[shocraneh]

خواهشا یکی نظر بده . من چون تازه اومدم طراحی سایت زیاد گیر می کنم .
تعجبم کدم اصلا مشکل نداره و با وجود این که عمل ثبت تو پایگاه انجام می شه
خطا داره ؟فکر نمی کنم اصلا مشکل سر کد باشه !

error:Data type mismatch in criteria expression.

Dim cn As New OleDbConnection(strCnn)
Dim strlink As String = "Insert into TblLink(linktext,linkurl,linkpriority) Values (@linktopic,@linkurl,linkpriority)"
Dim Cmd As New OleDbCommand(strlink, cn)
Cmd.Parameters.AddWithValue("@linktopic", Txttopic.Text)
Cmd.Parameters.AddWithValue("@linkurl", Txturl.Text)
Cmd.Parameters.AddWithValue("@linkpriority", Txtpriority.Text)
cn.Open()
Cmd.ExecuteNonQuery()
cn.Close()

[farnooshhp]

شاید نوع یکی از فیلدهاتون عددی باشه و شما مقدار رشته ای رو بهش پاس میدید

[shocraneh]

آره دوست من امروز متوجه این موضوع شدم از convert استفاده کردم فایده نداشت لطفا توضیح بدین چی کار کنم .ممنون از توجهتون (عجله دارم لطفا)

[behnam_vb]

ُسلام تو Convert از چه نوعی استفاده کردین چرا از Val استفاده نمیکنید ؟؟؟؟؟