[vb2005] ช่วยหาโคด เพิ่มข้อมูล โดยใส่เพิ่มที่ แถวเก่า(access2003) รายเอียดด้านใน

 If username.Text = str_idname And password_txt.Text = str_password Then
            mycon2 = New OleDbConnection("provider=microsoft.jet.oledb.4.0;" & "data Source=D:\project_phoenix_test\project phoenix\bin\database\keep_username.mdb")
            date_login = tdate.ToString
            mycon2.Open()
            mycmd = New OleDbCommand("select * from keeper", mycon2)
            Dim dataread As OleDbDataReader = mycmd.ExecuteReader
            While dataread.Read()
                rpm_login = (dataread("id_rpm"))
            End While
            rpm_login = rpm_login + 1
            mycmd2 = New OleDbCommand("INSERT InTO keeper (id_rpm,keep_user,date_login)" & _
            "Values ('" & rpm_login & "','" & str_idname & "','" & date_login & "')", mycon2)
            mycmd2.ExecuteNonQuery()
            MessageBox.Show("คุณ " & str_idname & " ได้ทำการ Log in เข้าสู่ระบบ สำเร็จเรียบร้อยแล้ว" & vbCrLf & "เข้าสู่ระบบ", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)
            mycon2.Close()

            goods.Show()
            password_txt.Text = ""
            Me.Hide()
        Else
            username.Text = ""
            password_txt.Text = ""
            username.Focus()
        End If