*/ --------------------------------------------------------------------------------------
*/ 出自： 编程中国 http://www.bc-cn.net
*/ 作者： 西山居士
*/ 时间： 2007-7-6 编程论坛首发
*/ 声明： 尊重作者劳动，转载请保留本段文字
*/ --------------------------------------------------------------------------------------


一、本程序代码非常简单，只用了几行代码完成。
二、为了使代码最简单易懂，没有做任何美化。
三、有人问vb连接Access2000的问题，此数据库是Access2003，示例说明连接Access2000及以上数据库是没问题的。
四、第一期竞赛题目即是通讯录，但似乎好多人对数据库有敬畏感和神密感，通过本示例你会觉得数据库原来是如此的简单。

很简单的个示例，给初学者参考的，加精就不必了。

要真正实用化，光美化是不够的，还需要增加很多功能。你自己可以参考此代码做些美化，锻炼一下自己不更好？

比这完整的代码论坛里有很多，我这只是为了使初学者更容易入门而写，太简单了，不必加精。如果有时间了再写些较完整的。

你装个WinRAR，不知道你是用什么解压？

If Option1.Value = True Then

If Val(Text1.Text) <> girl Then Text1.Text = Str$(boy)

If Val(Text1.Text) = girl Then

Adodc1.RecordSource = "SELECT * FROM XSDJ WHERE 性别=0"
Adodc1.Refresh
Text1.Text = "女生"

Else

If Val(Text1.Text) = boy Then

Adodc1.RecordSource = "SELECT * FROM XSDJ WHERE 性别=-1"
Adodc1.Refresh
Text1.Text = "男生"

End If

End If

End If

声明：
Private Const boy = -1
Private Const girl = 0