请教

Dim cn As ADODB.Connection
    Dim strSQL As String
    Dim lngRecsAff As Long
    Set cn = New ADODB.Connection
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & CommonDialog1.FileName & ";Extended Properties=Excel 8.0"
    strSQL = "INSERT INTO [odbc;Driver={SQL Server};Server=kearwan;Database=hq;UID=sa;PWD=200110;].数据录入_士兵基本情况 SELECT id,姓名,性别,民族,备注,单位,专业职务 FROM [Sheet1$]"
    cn.Execute strSQL, lngRecsAff, adExecuteNoRecords
    cn.Close
    Set cn = Nothing
    Sql = "delete from 数据录入_士兵基本情况 where 姓名 is null"
    conn.Execute Sql
    MsgBox "导入成功！", vbOKOnly + vbExclamation1。这是一段从excel导入sqlsever2000的代码，id是唯一标识一条记录了的。可以实现导入，问题是怎样实现导入时如果数据库中已经存在此id就不再插入此人的信息，如果没有则接着插入。
2。还有就是，怎样解决导入数据的时候不把excel表中的空行导入。