> connect.Openは正しく書いてるのに〜(>ε<)connectではなく、cnで宣言していませんでした?With cn .ConnectionString="接続文字" .CursorLocation=adUseClient .OpenEnd With