Option ExplicitPublic Const myDBName As String = "DB会計.mdb"Public Const Prv_Jet40 As String = "Provider=Microsoft.Jet.OLEDB.4.0;"Sub Access接続() Dim myDBConnect As ADODB.Connection Dim myRecSet As ADODB.Recordset Dim
ACCESS
ADO Accessデーターベースに接続、新しいレコードを追加する
Option ExplicitPublic Const myDBName As String = "DM名簿.mdb"Public Const Prv_Jet40 As String = "Provider=Microsoft.Jet.OLEDB.4.0;"Sub Access接続() Dim myDBConnect As ADODB.Connection Dim myRecSet As ADODB.Recordset Dim