早期的一些VB6 程序，由于使用不同的方法，或使用Crystal Report,需要用到ODBC，但却需要手工提前建立。
而对大量用户使用时，需要维护人员到不同的电脑上建立ODBC,其实上用代码的方法可以很简单的进行自动创建。
' 必须先引用 DAO
dim str as string
'注册的字串 str1 = "Description=Create ODBC for mySYS" str1 = str1 & vbCr & "Server=192.168.1.36" str1 = str1 & vbCr & "Database=mySYSDB" str1 = str1 & vbCr & "OEMtoAnsi=NO" '注册ODBC源 DAO.DBEngine.RegisterDatabase "mySYS_ODBC","sql Server",True,str1