如何跳过ADO中失败的行？

Dim conn As New ADODB.Connection
Dim cmd As New ADODB.Command

' 设置连接字符串
conn.ConnectionString = "Provider=SQLOLEDB;Data Source=服务器地址;Initial Catalog=数据库名;User ID=用户名;Password=密码"

' 打开连接
conn.Open

' 设置命令对象
cmd.ActiveConnection = conn
cmd.CommandType = adCmdText
cmd.CommandText = "INSERT INTO 表名 (列1, 列2) VALUES (?, ?)"

' 创建参数对象
Dim param1 As ADODB.Parameter
Set param1 = cmd.CreateParameter("param1", adVarChar, adParamInput, 50)
param1.Value = "值1"
cmd.Parameters.Append param1

Dim param2 As ADODB.Parameter
Set param2 = cmd.CreateParameter("param2", adVarChar, adParamInput, 50)
param2.Value = "值2"
cmd.Parameters.Append param2

' 执行查询或命令
On Error Resume Next ' 跳过错误
cmd.Execute

If Err.Number <> 0 Then
    ' 处理错误
    MsgBox "发生错误：" & Err.Description
End If

' 关闭连接
conn.Close