[求助]VBA中的ADO编程问题

<> 在ACCESS中，VAB编写这段代码，怎么会出现这种错误呢？！</P>
<>谁帮我瞧瞧。先谢了·····</P>
<>rivate Sub List2_Click()
& X$ m. b& P# h9 O3 u. b3 T7 A  Dim str As String
  Dim con As ADODB.Connection '声名数据库对象
  Dim rscA As ADODB.Recordset '声名记录集对象
0 U$ `) a+ C1 v$ s) r. e  ' Set con = New ADODB.Connection '数据库对象实例化例 dim con as new adodb.connection
6 G0 M0 c. p4 I  Set con = CurrentProject.Connection '指定当前数据库为打开数据库
" f) N# g5 t! K5 @" {  Set rscA = New ADODB.Recordset '记录集对象实例化 dim rec as new recordset
+ j" X$ e# s! W% i" X9 W7 P  S6 j  t  
  str = "SELECT * FROM 专业 where 专业名称='" &amp; List2.<I>value</I> &amp; "'"
% q4 g8 W3 Z, [1 Q6 g. h  rscA.Open str, con, 1, 3
% u, n3 j; ~+ n# @! R8 y1 x% R% u  Text4.SetFocus
  Text4.Text = rscA("专业代号")
0 j5 U0 B1 Z+ z# ?$ q  rscA.Close
  Set rscA = Nothing
! ?4 Z. v3 n8 iEnd Sub</P>
<>错误提示</P><img src="attachments/dvbbs/2004-5/200451712445786.bmp" border="0" onload="if(this.width>screen.width*0.7) {this.resized=true; this.width=screen.width*0.7; this.alt=\'Click here to open new window\nCTRL+Mouse wheel to zoom in/out\';}" onmouseover="if(this.width>screen.width*0.7) {this.resized=true; this.width=screen.width*0.7; this.style.cursor=\'hand\'; this.alt=\'Click here to open new window\nCTRL+Mouse wheel to zoom in/out\';}" onclick="if(!this.resized) {return true;} else {window.open(\'attachments/dvbbs/2004-5/200451712445786.bmp\');}" onmousewheel="return imgzoom(this);" alt="" />

<>本题已经解决，谢谢大家！！！</P><>呵呵！！</P>

晕，帅哥，你怎么也搞起数据库了，gaga

<>哎，现在啊也就数据库这碗饭，比较容易吃啊！？</P><>你看数据库原理，VFP，ASP，电子商务………………</P><>哪个都涉及数据库。</P>