Visual Basic.NET - Eliminar Registro - Error: no se ha inicializado la propiedad conntectionStrin

Dim consulta_eliminar As String

        Dim respuesta As Byte

        respuesta = MsgBox("Esta seguro que desea eliminar este registro", vbYesNo, "Eliminiar")

        If respuesta = vbYes Then

            consulta_eliminar = "delete * from Tbla_estudiante where Nom_cli =" & txtNom_cli.Text & ""

            comandos = New OleDb.OleDbCommand(consulta_eliminar, conexion)

            comandos.ExecuteNonQuery()

            MsgBox("Registro Eliminado", vbInformation, "Eliminado")

        End If

Dim consulta_eliminar As String

        Dim respuesta As Byte

        Try

            conexion.Close()

            conexion.Open()

            respuesta = MsgBox("Está seguro que desea ELIMINAR este registro", vbYesNo, "ELIMINAR")

            If respuesta = vbYes Then

                consulta_eliminar = "delete * from Tbla_Cliente where Cod_cli =" & txtCod_Clic.Text & ""

                comandos = New OleDb.OleDbCommand(consulta_eliminar, conexion)

                comandos.ExecuteNonQuery()

                MsgBox("Registro Eliminado", vbInformation, "Eliminado")

                'TODO: esta línea de código carga datos en la tabla, 

                'Copie este codigo del Load del mismo Formulario.

                Me.Tbla_ClienteTableAdapter.Fill(Me.DbDemoDataSet.Tbla_Cliente)

                '********************************************************

                Me.TblaClienteBindingSource.MoveLast()

                conexion.Close()

            End If

        Catch ex As Exception 'En caso de que ocurra una excepción 

            MsgBox("Error al intectar borrar Registro", vbExclamation, "Error")

        End Try