更新できません

解決

茜 2003-10-29 00:22:02 No: 109458

更新をサポートしていませんとメッセージがでて登録ができません。
調べたら読取専用になっている可能性があるとか書いてありましたがどこで設定
したらよいのでしょうか？
以下がDBを取得するところなんですが・・・

dbname = GetDataSource()
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
                        & "Data Source=" & dbname
cn.Open
startPos = InStr(1, Buturyu.Connection1.ConnectionString, _
                     "Data Source=", vbTextCompare)
    endPos = InStr(startPos, Buturyu.Connection1.ConnectionString, _
                   ";", vbTextCompare)
    skip = Len("Data Source=")

    GetDataSource = Mid(Buturyu.Connection1.ConnectionString, _
                        startPos + skip, endPos - (startPos + skip))

茜 2003-10-29 00:53:50 No: 109459

できました。