VB与数据库连接出错

Question

将代码:
  Dim conn As New ADODB.Connection
  conn.ConnectionString = "driver=SQL _  Server;server=***;Database=StudentManage;"
  conn.CursorLocation = adUseClient
  conn.Open
  Form1.Show vbModal
放在Sub Main()函数
form1的command_click事件中
Dim str As New ADODB.Recordset
  Dim strsql As String
  strsql = "select * from Students"
  str.Open strsql, conn, adOpenStatic, adLockReadOnly(执行到此提示错误)
请帮忙解决

Answer 1

conn.ConnectionString 好像有问题哦……不需要用户名和密码？

Answer 2

是的,不需要用户名和密码,这些代码如果全放在Command_click里面能执行

Answer 3

Dim conn As New ADODB.Connection
放在 Sub Main 外面，用 Public 关键字

Answer 4

beizhongshui1002() ( ) 信誉：100  2007-8-20 17:42:43  得分: 0  
 
 
   
能不能再请教你个其它问题,做程序的时候一般会有预览和打印的功能,我一直不太懂这些,有没有简便方法或参考的东西?  
 
=================================
去Wps网站上找个WPS的SDK，方便简单，文字编辑什么的都省了
顺便支持国产软件和正版问题