DELETE OPTION

If Len(Me.Id.Text) > 0 Then
            Dim a As Integer
            a = MsgBox("Are you sure you want to Delete the Record?", _
                                    vbYesNo + vbQuestion + vbDefaultButton1, _
                                    " Ver 1.1")
            If a = vbYes Then
                Dim da As New OleDbDataAdapter("Delete from AssetMaster where AssetId=" + Str(Val(Me.txtAssetId.Text)) + "", pubCNN)
                Dim ds As New DataSet
                da.Fill(ds)
             End If
END IF