可以改写成以下形式：
创新互联专业为企业提供万载网站建设、万载做网站、万载网站设计、万载网站制作等企业网站建设、网页设计与制作、万载企业网站模板建站服务，10余年万载做网站经验，不只是建网站，更提供有价值的思路和整体网络服务。
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim strCon As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\FUO_Inventory.accdb"
Dim myConn As New OleDbConnection(strCon)
myConn.Open()
End Sub
Randomize()的作用是初始化随机数种子，
它有个带参数的版本
Randomize(double
seed)
seed是产生随机数序列的一个标号，如果你不调用Randomize改变这个标号，默认使用的是同一个序列，所以每次你启动程序生成的随机数都是相同的，不带参数的Randomize等价于Randomize(Timer)，也就是使用系统时钟作为随机数种子
因为这个值随程序启动或调用每次都不会相同，所以能实现产生不同的随机数
首先你是怎么重写结构的Sub New的呢？不会有这个错误吗：“结构无法声明没有参数的非共享“Sub New”？
结构是值类型，和类不一样，不一定要有构造函数。直接
Dim B(2) As A
如果有一个含参数的Sub New(i As Integer)
Dim B() As A={New A(1), New A(2)}
有时要初始化很多个的时候可以用循环
Dim c As Integer = 50
Dim B(c) As A
For i = 0 To c
B(i) = New A(i)
Next
不过这样是对变量重新赋值，这种方法用在类上比较好。
看看这个有帮助哦：
