哪一位宗亲熟悉数据库，多帮忙提点一下。我对数据库是从零开始，因为我想编一个公司管理系统（主要是数据处理），VB编的界面，VB还在工程编辑。界面编好以后必须面向数据库了，而我对数据库真的一点都没接触过，大家帮帮忙啊！

：（呜呜！没人理我！我知道卫东叔肯定很精通，但他日理万机，日夜操劳，我就不忍再烦扰他了。各位宗亲还有谁比较熟悉的，望不吝赐教啊。

谢谢大家的鼓励！
文海兄！你也太相信小弟的能力了，谢谢信任！我想肯定会做好的，只是如果能有各位大侠助一臂之力将会事半功倍，省时省力，毕竟我空闲的时间少啊！

多谢祥虹叔！有您给晚辈指点，晚辈就没有什么担忧的了。我现在做的界面是用VB6编的，尽管我也知道VB6不是真正的面向对象开发平台，所编的程序不支持多平台，但按照我当前的情况来看，这已经足够了。当然如果公司发展壮大以后，还是非常需要多平台操作的，到时候肯定就需要用到.net了。因为我以前没有编过程序，（羞愧的是，在学校的时候学过C，但多年以后基本上还给老师了）现在试验性的编一个，JAVA和C＋＋虽然灵活，但要学会并能应用，并非一朝一夕的事情。所以才选择了最简单的VB来做界面，现在已经初见成效。要做到完善，达到理想状态还需要些时日。
    数据库本来想学Access的，现在听祥虹叔这么一说就有点动摇了，因为我的数据已经有50多M了，全都是表格和文本。能用Access吗？祥虹叔？

德灿宗亲好，谢谢你的支持与鼓励，听您的话，我会毫无畏惧，所向披靡了，呵呵！

祥虹叔!我的界面快弄好了，不过还有个难题需要您的帮助。就是更换界面背景的程序，看了好多网页，都说要用API函数才能实现，比较复杂。我找了好长时间才找到几句粗略的介绍，其它的控件我还能找到些代码下载下来修改，可关于这个的代码一点都没有。您能帮我一下吗？编程对于我来说真的很新鲜，以后一定多向您请教。

祥虹叔，您的事可是大事，不要因为我把大事给耽误了，那我可吃罪不起啊。一定要记住，在空闲的时候再抽一小点儿时间帮我考虑问题，保证正常工作！

祥虹叔最近很忙，还有哪为宗亲熟悉VB的吗？给我指点一下

祥虹叔！我用VB编的面向对象程序出了点麻烦了。在调试的时候一切都很正常，毛病就出在生成的可执行文件里。该可执行文件启动后进入程序，以及在程序中的一切操作都很正常。问题就出在退出系统的时候。退出时，如果点击“退出系统”按钮也很正常，可是如果点击窗口右上角的小叉叉“X”的时候，程序退出了，但退出以后系统会弹出“**管理系统.exe程序出错，系统将关闭该程序，你需要重新启动程序”。以前从来没有碰到过，上网查了一下，有说是UNload方法后可能跟有语句，有的说是系统中毒，还有其他的一些。可我觉得都不是，我Unload方法后面是不会再跟语句了的。杀毒我也杀了，没杀到什么东西。如果一句一句代码去查找，那有好多页的代码就够看的了，可我也基本上看了一遍，没发现什么异常。我无法了。祥虹叔以前有没有碰到这样的情况呢？真希望你碰到过，呵呵。不管有没有办法解决，我都非常感谢您的回复，祝您和家人身体安康，和和美美！

祥虹叔好，谢谢你给我举的例子，图示说明也很直观易懂，对我的帮助真的很大。顺便我向您汇报一下，我上面提到的VB中的问题也已经解决了。找了好久，终于解决了，心情激动，及时向您汇报，以免让你再费心思。

 

祥虹叔你还好吗？还在拼命的工作啊？要多注意身体哈。小侄向您汇报近期的工程进度：界面基本上可以了，现在到数据库了。我用文本框输入数据insert into 到数据库中，总是弹出类型不匹配，我是新手，只能求助于您了。我上来好多次都遇不到您，我把代码附上吧，如果您上来看到了，恳请不吝赐教哦。
代码：
Option Explicit
Dim con As ADODB.Connection
Dim Rec As ADODB.Recordset

Private Sub Command1_Click()
 If Txt0.Text = "" Or Txt1.Text = "" Then MsgBox "请选择父节点和输入子节 点",_vbInformation, "提示！"

Set con = New ADODB.Connection
con.Open provider=Microsoft.Jet.OLEDB.4.0;DataSource=D:\Kll\VB\510\data
\db1.mdb;Persist SecurityInfo=False"

If Txt0.Text = "数据目录" And Txt1.Text <> "" Then _
Rec.Open "insert into 年度表(年度，年度ID，年度名称) valuse(" + CInt(Txt1.Text) + ",2*" + CInt(Txt1.Text) + "," +Txt1.Text+"年数据 )", con, 1, 3

 '问题就出在这里，总是提示实时错误'13'：类型不匹配”

Rec.Update
Rec.Close
con.Close
End Sub

德灿宗亲好像也是高手，您若看到，也帮忙解解好吗？其他宗亲谁比较熟悉数据库操作的，也帮我看看吧，我会很感激您的！