vb6.0 DataGrid1 で更新できません (ID:90801)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 '** ODBC 接続 Set cn = CreateObject("ADODB.Connection") cn.Open "dsn=SAK3;uid=sak;pwd=" cn.CursorLocation = 3 Dim sql As String sql = "select * from T_住所録 where 性別='" & Me.cmd_sex.Text & "'" '** レコードセットオープン Set rs = cn.Execute(sql) '** トランザクション開始 cn.BeginTrans DataGrid1.AllowAddNew = False DataGrid1.AllowDelete = False DataGrid1.AllowUpdate = True Set DataGrid1.DataSource = rs datagridに入力も出来ません。