Im wondering if anyone can suggest a solution to my problem. Im simply trying to connect to a database through VB 6 and add a new record and populate one of the fields.
Any help would be great.


The code below throws up error message 'Current Recordset does not support updating. This may be a limitation of the provider or of the selected locktype'


Dim adoConnection As ADODB.Connection
Dim adoRecordset As ADODB.Recordset
Dim connectString As String
Dim RecordSQL As String

RecordSQL = "SELECT * From Programme"

Set adoConnection = New ADODB.Connection
Set adoRecordset = New ADODB.Recordset

connectString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\MyDatabase.mdb"
adoConnection.Open connectString
adoRecordset.Open RecordSQL, adoConnection

adoRecordset.AddNew
adoRecordset!UserName = txtProgrammeNumber.Text
adoRecordset.Update

adoRecordset.Close
adoConnection.Close
Set adoRecordset = Nothing
Set adoConnection = Nothing