'*****　データベースへ接続・切断を行うプロシージャ　***** Public DBpath, DB_File As String Public flg As Long Private adoCn, adoRs As Object 'Private strSQL As String 'データベースへ接続 Sub DBconnect(flg As Boolean) DBpath = "\\192.168.*.**\*****\DB_Master\" DB_File = "**********DB.accdb" Set adoCn = CreateObject("ADODB.Connection") If flg = True Then Set adoRs = CreateObject("ADODB.Recordset") End If adoCn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & DBpath & DB_File & ";" End Sub 'データベースの切断を行うプロシージャ Sub DBcut_off(flg As Boolean) If flg = True Then adoRs.Close End If adoCn.Close Set adoRs = Nothing Set adoCn = Nothing End Sub