做好并打包好的VB程序读不出数据库中的内容

解压缩安装时有没有提示出错呢？如果有，则是你打好得包里缺少数据库连接的文件。根据提示的错误（最好再没有安装vb的机器上试验），在vb中找到相应的文件，复制到你的工程下，重新打包，即可。
如果没有错误，就检查你的数据库表 是不是路径正确。

只有原代码才能读取相关数据,就像一款游戏,没有根目录,在对战平台是启动不了游戏的
下面给你点别的相关知识,仅供参考.

小写字母的ascii值在90到116 之间
用rnd随机函数获得这之间的值，在使用chr或者其他函数转换成字符类型，

dim filename as string
filename="D:\VB\123"+chr(rnd()*90+26)+chr(rnd()*90+26)+chr(rnd()*90+26)+".txt"

没有测试过，思路应该是对的

'SQL版

Private Con As String = "<连接字符串>"'<连接字符串>可以自动生成
Private connection As SqlClient.SqlConnection
Private command As SqlClient.SqlCommand
Public Function DBopen() As Boolean '打开数据库
Try
connection = New SqlClient.SqlConnection
connection.ConnectionString = Con
connection.Open()
Return True
Catch ex As Exception
MsgBox(ex.ToString)
Return False
End Try
End Function
Public Function DBclose() As Boolean '关