Как лечить run-time 430.... или запуск под 95??

Private Sub MDIForm_Load()
 
Me.ImageList1.ListImages. _
Add , 'view', LoadPicture(App.Path + 'imagescrdfle03.ico')
Me.ImageList1.ListImages. _
Add , 'add', LoadPicture(App.Path + 'imagespencil05.ico')
 
Me.Toolbar1.ImageList = Me.ImageList1
Me.Toolbar1.Buttons.Add , , , tbrSeparator
Me.Toolbar1.Buttons.Add 1, 'view', , tbrDefault, 'view'
Me.Toolbar1.Buttons.Add 2, 'add', , tbrDefault, 'add'
Me.Toolbar1.Buttons.Item(1).ToolTipText = 'Просмотр всех сотрудников'
Me.Toolbar1.Buttons.Item(2).ToolTipText = 'Ввод данных о сотруднике'
 
'Me.lists.Enabled = False
splash_screen.Show
DoEvents
Me.MousePointer = vbHourglass
Set cn_personal = New ADODB.Connection
Set cn_sprav = New ADODB.Connection
Set cn_address = New ADODB.Connection
Set rs_structb = New ADODB.Recordset
Set rs_fio = New ADODB.Recordset
Set rs_uchzav = New ADODB.Recordset
Set rs_nations = New ADODB.Recordset
Set rs_doljn = New ADODB.Recordset
Set rs_vidotp = New ADODB.Recordset
Set rs_turnoff = New ADODB.Recordset
 
cn_personal.ConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + App.Path + 'datapersonal.mdb;Persist Security Info=False'
cn_sprav.ConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + App.Path + 'datasprav.mdb;Persist Security Info=False'
cn_personal.Open
cn_sprav.Open
cn_address.ConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + App.Path + 'dataaddress.mdb;Persist Security Info=False'
cn_address.Open
 
'opening the databases in ADO
rs_fio.Open 'fio', cn_personal, adOpenStatic, adLockOptimistic
rs_uchzav.Open 'uchzav', cn_sprav, adOpenStatic, adLockOptimistic
rs_structb.Open 'structb', cn_sprav, adOpenStatic, adLockOptimistic
rs_nations.Open 'nac', cn_sprav, adOpenStatic, adLockOptimistic
rs_vidotp.Open 'vidotp', cn_sprav, adOpenStatic, adLockOptimistic
rs_turnoff.Open 'turnoff', cn_sprav, adOpenStatic, adLockOptimistic
rs_doljn.Open 'doljn', cn_sprav, adOpenStatic, adLockOptimistic
Me.MousePointer = vbNormal
Unload splash_screen
Set splash_screen = Nothing
End Sub