con.Open()
    Dim Cliente As String
    Dim Nome As String
    Dim Data As String
    Dim Tempo As String
    Dim Descricao As String
    Dim Solucao As String
    Dim Conta As Integer

    Try
        Cliente = TextBox1.Text
        Nome = TextBox2.Text
        Data = DateTimePicker1.Value
        Tempo = TextBox3.Text
        Descricao = TextBox6.Text
        Solucao = TextBox5.Text

        Dim sql As String = "Insert into Assistencias " &
            "Values ('" & Cliente & "', '" &
            Nome & "', '" & Data & "', '" & Tempo & "', '" & Descricao & "', '" & Solucao & "')"
        Dim sqlcom As New SqlCommand(sql, con)
        Conta = Conta + Tempo
        Dim sql2 As String = "Insert into Test (HorasGastas) " &
            "Values ('" & Conta & "')"
        Dim sqlcom2 As New SqlCommand(sql2, con)

        Dim nr As Integer
        nr = sqlcom.ExecuteNonQuery()
        MsgBox("Registo efetuado com sucesso!", MsgBoxStyle.Information, "InfTek Solutions")
    Catch Exc As Exception
        MsgBox("Erro na inserção de dados", MsgBoxStyle.Critical, "InfTek Solutions")
        Exit Try
    End Try
    con.Close()
    Me.Close()