Updating Records called using adCmdText

i have a problem:
i am searching for a details of a record based on the record enterd by the user. i use adcmdText with an sql string. now, i want to update the details but adcmd does not allow updating also, adcmdTable is not allowing the sql string.
how do i get around this problem


Private Sub Combo1_Click()
sql = "SELECT DISTINCT * FROM Video WHERE VideoID='" & Combo1.Text & "'"
ro.Open sql, cn, adOpenStatic, adLockOptimistic, adCmdText

Set Text4.DataSource = ro
Text4.DataField = "Status"
end sub

Video is the Table
VideoID is the record the user will select from a list

What exactly doesn't work? Any errors?

text4 is not being updated and i get an error saying field is not updatable

Do you think it would be helpful to post the error message and the relevant code? I do.

these are the codes rent and video are classes.

You should attach your code as text. In today's internet world I'm hesitant to open any files that may contain executables, like doc files.

...the text file

I don't see where you ever set a text4.enabled

What is the exact error message and what line of code is causing the error?

I see you're using an access DB, andother common issue is if your mdb file is marked as read-only on disk, or if your user account doesn't have write privileges to the mdb file.