帮你写上一段，在此基础上，你可以继续开发：
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim mydata As String
Dim SQL as String
mydata = ThisWorkbook.Path & "*.mdb"//这里为你的ACCESS数据库，路径你根据实际情况写吧
With cnn
.Provider = "microsoft.jet.oledb.4.0"
.Open mydata
End With

SQL="insert into yourtable values(这里放入你需要从WINCC中存入数据库的数据字段列表）"//yourtable 为你实现建立的数据表格
set rs=cnn.excute(SQL)
等等等等，
都是常规的ADO数据库技术。