Private Sub btnmarcar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmarcar.Click
        Dim intdia, intmes, intano, inthora, intminuto As Integer
        Dim intcodigo_paciente, intcodigo_convenio As Integer
        Dim strhora, strminuto As String
        strhora = Microsoft.VisualBasic.Left(mskhorario.Text, 2)
        strminuto = Microsoft.VisualBasic.Right(mskhorario.Text, 2)

        If (Trim(strhora) = "") Or (Trim(strminuto) = "") Then
            MsgBox("É necessario informar o horário !")
        Else
            intdia = Calendario.SelectionStart.Day
            intmes = Calendario.SelectionStart.Month
            intano = Calendario.SelectionStart.Year

            inthora = CInt(strhora)
            intminuto = CInt(strminuto)

            Dim dtdata_hora_consulta As New System.DateTime(intano, intmes, intdia, inthora, intminuto, 0)
            Dim dtdata_consulta As New System.DateTime(intano, intmes, intdia)

            intcodigo_paciente = DataGridPacientes.CurrentRow.Cells(0).Value
            intcodigo_convenio = DataGridConvenios.CurrentRow.Cells(0).Value

           [b] Me.AgendaconsultasTableAdapter1.Insert(dtdata_hora_consulta, dtdata_consulta, intcodigo_paciente, intcodigo_convenio, "N")[/b]

            MsgBox("Consulta agendada !")
            Me.Close()
        End If

   End Sub