Visual Basic.NET - Referencia a objeto no establecida como instancia de un objeto

Imports System.Data.OleDb  'Para establecer la conexión con Access

Public Class frmCp

    Inherits System.Windows.Forms.Form

    Private cn As OleDbConnection   'Conexión

    Private da As OleDbDataAdapter  'Maneja los registros de Cp

    Private ds As DataSet           'Contine los datos de la tabla Cp

    Private sw As Integer

    Private fila As Integer

    Private Sub btnGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGuardar.Click

        If sw = 1 Then

            If MessageBox.Show("¿Desea guardar el Cp?", "Añadir Cp", MessageBoxButtons.YesNo) = MsgBoxResult.Yes Then

                insertaCp()

            End If

        End If

        If sw = 2 Then

            If MessageBox.Show("¿Desea Modificar el Cp?", "Modificar Cp", MessageBoxButtons.YesNo) = MsgBoxResult.Yes Then

                editarCp()

            End If

        End If

        actualizarCp()

        activaBotones(True)

    End Sub

    Sub insertaCp()

        Try

            Dim dr As DataRow

            dr = ds.Tables("Cp").NewRow     ' Linea donde se detiene el programa y da el error.

            dr(0) = Me.txtId.Text

            dr(1) = Me.txtCp.Text

            dr(2) = Me.txtPobla.Text

            ds.Tables("Cp").Rows.Add(dr)

            da.Update(ds, "cp")

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

    End Sub

    Sub editarCp()

        Try

            Dim dr As DataRow

            dr = ds.Tables("Cp").Rows(fila)    ' Linea donde se detiene el programa y da el error.

            dr(1) = Me.txtCp.Text

            dr(2) = Me.txtPobla.Text

            da.Update(ds, "Cp")

        Catch ex As OleDb.OleDbException

            MessageBox.Show(ex.Errors.Count)

        End Try

    End Sub