谁帮我用VF做一道题？题目看内容，今天用

是第43题对吧，答案:

（1）用到控件：Label（标签）3个,Text（文本框）2个,Command（按钮）1个。
（2）将“余额”的Text控件的Enabled属性设为False
（3）应选用Form的Activate事件
（4）代码如下：
Private Sub Command1_Click()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\data.mdb"
rs.Open "select 余额 from 电费余额 where 帐号='" & Text1.Text & "'", conn, 1, 3
If Not rs.EOF Then
Text2.Text = rs("余额")
Else
MsgBox ("未找到帐号数据")
End If
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
End Sub

这是VB作的，机器没有VFP，好久没用那个了。

没有网址啊