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

<> 在ACCESS中，VAB编写这段代码，怎么会出现这种错误呢？！</P>
& ^- o( W, c& V<>谁帮我瞧瞧。先谢了·····</P>
<>rivate Sub List2_Click()
. R8 T1 m7 A( v  Dim str As String
  Dim con As ADODB.Connection '声名数据库对象
% k! x2 t% V3 r: p( O  Dim rscA As ADODB.Recordset '声名记录集对象
  ' Set con = New ADODB.Connection '数据库对象实例化例 dim con as new adodb.connection
  Set con = CurrentProject.Connection '指定当前数据库为打开数据库
  Set rscA = New ADODB.Recordset '记录集对象实例化 dim rec as new recordset
3 [  f& U3 r: m* X1 V9 t, C8 P  
  str = "SELECT * FROM 专业 where 专业名称='" &amp; List2.<I>value</I> &amp; "'"
  rscA.Open str, con, 1, 3
  Text4.SetFocus
* {: f1 f" E1 [# R: m  Text4.Text = rscA("专业代号")
3 ^0 w% i/ j# u) A$ n( s  rscA.Close
  Set rscA = Nothing
9 Z% v- k4 G$ s- X' N5 oEnd 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>