Private Sub Timer1_Timer()

If MSComm1.InBufferCount = 6 Then
MSComm1.InputLen = 2
Text1.Text = MSComm1.Input
Text2.Text = MSComm1.Input
Text5.Text = MSComm1.Input


If Val(Text5.Text) = 1 Then
Shape4.BackColor = RGB(0, 255, 0)
End If
If Val(Text5.Text) = 0 Then
Shape4.BackColor = RGB(255, 0, 0)
End If

SD = y
y = Val(Text2.Text)

Picture1.Line (x + 9, 100 - y)-(x, 100 - SD)
x = x + 9
    If x >= 120 Then
    Picture1.Cls
    x = 0
    End If
   
If Val(Text2.Text) > Val(Text4.Text) Then
Shape2.BackColor = RGB(255, 0, 0)
Else
Shape2.BackColor = RGB(0, 255, 0)
End If

If Val(Text2.Text) < Val(Text3.Text) Then
Shape3.BackColor = RGB(255, 0, 0)

Else
Shape3.BackColor = RGB(0, 255, 0)
End If
   If Val(Text5.Text = 2) & Val(Text2.Text) < Val(Text3.Text) Then
    buff(0) = &H3
    MSComm1.Output = buff
    End If
    If Val(Text5.Text = 1) & Val(Text2.Text) >= Val(Text3.Text) Then
    buff(0) = &H4
    MSComm1.Output = buff

    End If

Adodc1.Refresh
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("时间") = Now
Adodc1.Recordset.Fields("温度") = Val(Text1.Text)
Adodc1.Recordset.Fields("湿度") = Val(Text2.Text)
Adodc1.Recordset.Update//这句话报错 实时错误 80004005
End If

End Sub

代码不全，不能准备判断。目测是数据链接有问题。

Adodc1.Recordset.Fields("时间") = Now
Adodc1.Recordset.Fields("温度") = Val(Text1.Text)
Adodc1.Recordset.Fields("湿度") = Val(Text2.Text)

感觉是这三个字段里，有重复的值，而数据库不允许有重复的值。

估计是数据表的问题，一般数据表有一个自动编号的字段，如果这个数据表是从其他地方导出的，或使用代码创建的数据表，那么自动编号字段就不是自动编号了，而成了int数据格式了。
这样就有可能出现索引、主关键字，即自动编号字段出现了重复值，而出现这样的错误。
你可以看看你的这个数据表是不是自动编号字段数据格式是什么，如果不是自动编号，修改过来就可以了。
仅仅是估计，也可能是其他问题，但一般来讲，发生这种错误的基本上是这个问题。