VB6 code does not work on Win7

Run time error 8002, when program run on windows 7 but work properly on windows xp , please do something?

my code is:

Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.Settings = "9600,n,8,1"
<-error shows in this line
MSComm1.RThreshold = 1
Timer1.Interval = 1000
Text2.Text = ""
Set cn = New ADODB.Connection
cn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data.mdb;Persist Security Info=True")
End Sub