Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Persist Security Info=False;" & "Data Source=" & App.Path & "\OuyeDB.accdb"
conn.Open '打开数据库