strSQL = "SELECT COUNT(*) FROM " & strTBL & " WHERE フィールド名= 値"
Set rs = cn.Execute(strSQL)
count = rs.Fields(0)
rs.Close
If (count = 1) Then
    '更新
    strSQL = "SELECT * FROM " & strTBL & " WHERE フィールド名= 値"
    rs.Open strSQL, cn, adOpenForwardOnly, adLockOptimistic 'SQL文を実行
    rs!フィールド名= 値
    rs.Update '更新(保存)
    rs.Close
Else
    '新規作成
     strSQL = "SELECT * FROM " & strTBL
    rs.Open strSQL, cn, adOpenKeyset, adLockOptimistic 'テーブルを開く
    rs.AddNew '新規レコードを追加する
    rs!フィールド名= 値
    rs.Update '更新(保存)
    rs.Close
    End If

    Sub HelloWorldExampleCalc()
        Dim myCalc As Object, mySheet As Object, myCell As Object

        myCalc = StarDesktop.loadComponentFromURL("private:factory/scalc", "_blank", 0, dummyArray)
        mySheet = myCalc.getCurrentController().getActiveSheet()
        myCell = mySheet.getCellByPosition(0, 1)
        myCell.String = OOoMess111
        myCell = mySheet.getCellByPosition(0, 2)
        myCell.Value = 100
        myCell.CharColor = OOoRGB(0, 200, 0)
        myCell = mySheet.getCellByPosition(0, 3)
        myCell.Formula = "=A3*2"
        myCell.CharWeight = OOOawtFontWeightBOLD
        mySheet.getCellByPosition(0, 4).CellBackColor() = OOoRGB(0, 200, 0)
        Dim oBorderLine As Object = CreateUnoStruct("com.sun.star.table.BorderLine")
        Dim oTableBorder As Object = CreateUnoStruct("com.sun.star.table.TableBorder")
        With oBorderLine
            .Color = RGB(0, 0, 0)
            .OuterLineWidth = 1
        End With
        With oTableBorder
            .IsLeftLineValid = True
            .IsTopLineValid = True
            .IsRightLineValid = True
            .IsBottomLineValid = True
            .LeftLine = oBorderLine
            .TopLine = oBorderLine
            .RightLine = oBorderLine
            .BottomLine = oBorderLine
        End With
        mySheet.getCellRangeByName("A2:B3").TableBorder() = oTableBorder
        MsgBox(OOoMess105)
        myCalc.close(True)
    End Sub

sub Main

        Dim dbg As object
        dbg =  CreateUnoService("com.sun.star.sheet.SpreadsheetDocument")
        MsgBox(dbg.Dbg_SupportedInterfaces)
        MsgBox(dbg.Dbg_Properties)
        MsgBox(dbg.Dbg_Methods)

end sub