在catia vba中使用ADO记录集值作点

Sub CreatePointsFromRecordset()
    Dim conn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim strSQL As String
    Dim catPart As Part
    Dim hybridBodies As HybridBodies
    Dim hybridBody As HybridBody
    Dim hybridShapeFactory As HybridShapeFactory
    Dim point As HybridShapePointCoord

    ' 建立数据库连接
    conn.ConnectionString = "Provider=SQLOLEDB;Data Source=ServerName;Initial Catalog=DatabaseName;User ID=UserName;Password=Password;"
    conn.Open

    ' 执行SQL查询
    strSQL = "SELECT X, Y, Z FROM PointsTable"
    rs.Open strSQL, conn

    ' 创建点对象
    Set catPart = CATIA.ActiveDocument.Part
    Set hybridBodies = catPart.HybridBodies
    Set hybridBody = hybridBodies.Item("Points")
    Set hybridShapeFactory = catPart.HybridShapeFactory

    rs.MoveFirst
    Do Until rs.EOF
        Set point = hybridShapeFactory.AddNewPointCoord(rs.Fields("X").Value, rs.Fields("Y").Value, rs.Fields("Z").Value)
        hybridBody.AppendHybridShape point
        rs.MoveNext
    Loop

    ' 更新零件
    catPart.Update

    ' 关闭记录集和连接
    rs.Close
    conn.Close
End Sub