วิธีแก้ไข code vb error close:open database ของผม Error ไม่รู้จะเเก้ไขอย่างไร

Private Sub Add_Data()
        Dim sqlSearch As String
        Dim sqlString As String
        Dim nResult As Integer

        nResult = 0
        'Try
        cnn.Open()
        command = New SqlCommand("Select GetDate()", cnn)
        dtServerDateTime2 = command.ExecuteScalar
        cnn.Close()

        cnn.Open()
        sqlSearch = "Select *from vewTotal_Result_Qty_LineName Where Production_Order='" & cobOrder.Text & "'"
        command = New SqlCommand(sqlSearch, cnn)
        Dim sqlReader As SqlDataReader = command.ExecuteReader()
        
        If sqlReader.Read = True Then
            nResult = CInt(sqlReader("Sum_Qty").ToString) + 1
            cnn.Close()
            cnn.Open()
            sqlString = "Update Result_Quantity SET Result_Qty=" & nResult & " Where Production_Order='" & cobOrder.Text & "'"
            command_Update = New SqlCommand(sqlString, cnn)
            command_Update.ExecuteNonQuery()
            cnn.Close()

        Else
            cnn.Close()
            cnn.Open()
            nResult = 1
            sqlString = "INSERT INTO Result_Quantity (Line_Name,Production_Order,Item_Code,Item_Desc, " & _
                " Result_Date,Result_Qty,Flag_Status,IP_Address) " & _
                " Values('" & Me.cobLineName.Text & "','" & Me.cobOrder.Text & "','" & Me.lblItemCode.Text & "','" & Me.lblItemDesc.Text & "'," & _
                "'" + Format(dtServerDateTime2, "yyyy-MM-dd H:mm:ss") + "'," & nResult & ",'" & "1" & "','" & Me.txtIP_Address.Text & "') "
            command_Insert = New SqlCommand(sqlString, cnn)
            command_Insert.ExecuteNonQuery()
            cnn.Close()
        End If

        lblQty.Text = nResult
        Me.Refresh()

        cnn.Open()
        sqlSearch = "Select *from Expected_Datetime Where Production_Order='" & cobOrder.Text & "'"
        command = New SqlCommand(sqlSearch, cnn)
        Dim sqlReader2 As SqlDataReader = command.ExecuteReader()
        
        If sqlReader2.Read = True Then
            If CInt(sqlReader2("Plan_Qty").ToString) = CInt(lblQty.Text) Then

                Call Save_Result()

                Me.btAdd.Enabled = False
                Me.btRemove.Enabled = False
                'Me.btStop.Enabled = False
                Me.btStart.Enabled = False
                'cnn.Close()
                'cnn.Open()
            Else
                'cnn.Close()
                'cnn.Open()
                If CInt(lblQty.Text) + 1 > CInt(sqlReader2("Plan_Qty").ToString) Then

                    MsgBox("Not Input Result Over Plan Qty.", vbCritical + vbOKOnly)
                    'lblQty.Text = i - 1
                    Me.btAdd.Enabled = False
                    cnn.Close()
                End If
                cnn.Close()
            End If
            cnn.Close()
        End If
        cnn.Close()
    End Sub

 Private Sub Save_Result()
        Dim sqlInsert As String
        Dim sqlUpdate As String

        '---------------------
        'Naowarat 10/01/2018
        'cnn.Open()
        command = New SqlCommand("Select GetDate()", cnn)
        dtServerDateTime2 = command.ExecuteScalar
        cnn.Close()

        If Me.lblItemCode.Text <> "" Then
            If MsgBox("Do you want to Finish Production Order : " & cobOrder.Text & "", vbInformation + vbOKCancel) = vbOK Then

                cnn.Open()
                sql = "SELECT *FROM Close_Production_Order Where Production_Order='" & Me.cobOrder.Text & "'"
                sResult_All = sResult_All
                command = New SqlCommand(sql, cnn)
                Dim sqlReader As SqlDataReader = command.ExecuteReader()

                If Not sqlReader.HasRows Then

                    Me.Timer1.Enabled = False
                    token = 1

                    cnn.Close()
                    cnn.Open()

                    sqlUpdate = ("Update Result_Time SET Stop_Time='" + Format(dtServerDateTime2, "HH:mm") + "',Stop_Date='" + Format(dtServerDateTime2, "yyyy/MM/dd") + "'," & _
                                 "Stamp_Stop='" + Format(dtServerDateTime2, "yyyy-MM-dd H:mm:ss") + "',IP_Address_Stop='" & Me.txtIP_Address.Text & "' " & _
                                " Where Production_Order ='" & Me.cobOrder.Text & "' And (Flag_Status='" & "0" & "') ")
                    command = New SqlCommand(sqlUpdate, cnn)
                    command.ExecuteNonQuery()

                    cnn.Close()
                    cnn.Open()
                    sqlUpdate = ("Update Result_Time SET Flag_Status='" & "2" & "' " & _
                                " Where Production_Order ='" & Me.cobOrder.Text & "' ")
                    command = New SqlCommand(sqlUpdate, cnn)
                    command.ExecuteNonQuery()

                    cnn.Close()
                    cnn.Open()
                    sqlUpdate = ("Update Result_Quantity SET Flag_Status='" & "2" & "' Where Production_Order ='" & Me.cobOrder.Text & "' ")
                    command = New SqlCommand(sqlUpdate, cnn)
                    command.ExecuteNonQuery()

                    cnn.Close()
                    cnn.Open()
                    sqlUpdate = ("Update Expected_Datetime SET Flag_Status='" & "2" & "' Where Production_Order ='" & Me.cobOrder.Text & "' ")
                    command = New SqlCommand(sqlUpdate, cnn)
                    command.ExecuteNonQuery()

                    cnn.Close()
                    cnn.Open()
                    sqlInsert = "Insert Into Close_Production_Order(Production_Order,Item_Code,Item_Desc,Result_Qty,Close_DateTime,IP_Address_Close) " & _
                                " Values('" & Me.cobOrder.Text & "','" & Me.lblItemCode.Text & "','" & Me.lblItemDesc.Text & "'," & Me.lblQty.Text & "," & _
                                "'" + Format(dtServerDateTime2, "yyyy-MM-dd H:mm:ss") + "','" & Me.txtIP_Address.Text & "')"
                    command = New SqlCommand(sqlInsert, cnn)
                    command.ExecuteNonQuery()


                    MsgBox("Close Production Order Complate.", vbInformation + vbOKOnly)

                    iClose = 1
                    cnn.Close()

                    '------------------
                    'Naowarat 10/01/2018
                    'Me.cobLineName.Text = ""
                    '------------------
                    Me.cobOrder.Text = ""
                    Me.cobOperator.Text = ""
                    Me.lblItemCode.Text = ""
                    Me.lblItemDesc.Text = ""
                    Me.lblQty.Text = "0"


                    Me.Timer1.Enabled = False
                    Me.btStart.Enabled = False
                    Me.btStop.Enabled = False
                    Me.btAdd.Enabled = False
                    Me.btRemove.Enabled = False

                    Me.lbHour.Text = "00"
                    Me.lbMinute.Text = "00"
                    Me.lbSecond.Text = "00"

                    Me.cobLineName.Enabled = True
                    Me.cobOperator.Enabled = True
                    Me.cobOrder.Enabled = True
                    Me.btCloseOrder.Enabled = False

                    '------------------
                    'Naowarat 10/01/2018
                    Me.cobOperator.Focus()
                    'Me.cobLineName.Focus()
                    '--------------------
                    sProduction_Order = ""

                    sResult_All = 0

                Else
                    iClose = 0
                    sResult_All = sResult_All

                    cnn.Close()
                End If
            Else
                iClose = 0
                cnn.Close()

            End If
        Else
            iClose = 0
            cnn.Close()

        End If
    End Sub