vb统计sql表中的行数

Question

vb的课程设计，服务器名称A034 数据库 student_db windows认证，无用户名及密码
怎么用vb把sql中的一个表（yingpian）的记录数（就是这个表有多少行，其实最好是有多少个电影）显示在vb的文本框中以实现vb统计数据库中电影个数的功能
方法越简单越好，讲解越详细越好，
我对vb基本上一无所知，只是为了应付差事，拜托朋友们帮帮忙啊
怎么样用于vb之中，使行数显示在窗体的文本框里，我要详细的代码及控件操作，不要sql语言

Answer 1

Private Sub Command1_Click()
Public ctrfi As String
ctrfi ="Provider=SQLOLEDB.1;Password=;Persist Security Info=True;User ID=SA;Initial Catalog=yingpian;Data Source=127.0.0.1"
Dim mrc As ADODB.Recordset
'sql语句文本为=号后面的内容，查询username的值为text1文本框中内容的信息
txtsql = "select count(*) from yingpian "
'执行SQL语句
mrc.open sql,ctrfi,1,3
text1.text= mrc.Fields(0)
End Sub

Answer 2

工具栏—工程—部件—Microsoft ADO Data control 6.0(SP6) 打勾确定
在窗体上添加3个控件 Text，CommandButton,Adodc

Private Sub Form_Load()
Adodc1.ConnectionString = "driver={SQL Server};server=.;uid=sa;pwd=;database=student_db" '连接数据student_db
End Sub

Private Sub Command1_Click()
i = 0 '记录条数
Adodc1.RecordSource = "select * from yingpian " '连接表yingpian
Adodc1.Refresh '是我疏忽了不好意思 这里要刷新一次
Adodc1.Recordset.MoveFirst '表记录移到第一条
Do While Adodc1.Recordset.EOF = False '直到移动到最后一条
i = i + 1 '每移动次记录加一次
Adodc1.Recordset.MoveNext
Loop
Text1.Text = i '在Text1.Text中显示总记录数
End Sub

Answer 3

SELECT COUNT(*) FROM table_name WHERE (fields_name = '电影')