Waarde MonthCalendar invoeren in een database

[Magistro]

Hallo,

Voor de duidelijkheid: ik werk met vb2008 express

Ik probeer verschillende waardes die ingegeven worden door een userform over te brengen naar een database. Ik krijg ze allemaal naar de database, behalve de waarde die wordt gecreeerd door de montcalendar krijg ik niet overgezet.

Ik heb in onderstaand plaatje een printscreen van het invoerscherm gemaakt, daarin heb ik even snel de namen van de verschillden textboxen gezet.



Helemaal onderaan zet ik de code van het invoerscherm.

Alles werkt, behalve het wegschrijven van de waarde van de monthcalendar.

Het gaat mij dus om de onderstaande secties (Daarin heb ik de monthcalendar nodig):
- Sub GegevensInvoeren
- Private Sub btnInvoeren_Click

Heeft iemand enig idee hoe ik de waarde die de montcalendar creeert op dezelfde manier als de andere waardes (die ik al wegschrijf) kan wegschrijven?

Als iemand een andere manier weet om een datum weg te schrijven (buiten de monthcalendar) wil ik die ook wel horen

Imports System.Data.OleDb

Public Class Invoeren

    Dim myConn As New OleDbConnection
    Dim myCmd As New OleDbCommand
    Dim strSQLSELECTLIST As String
    Dim strSQLSELECTLIST2 As String
    Dim strSQLINSERT As String

    Function IsConnected() As Boolean
        Try
            'Checks first if already connected to database,if connected, it will be disconnected.
            If myConn.State = ConnectionState.Open Then myConn.Close()
            myConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\Gegevens.mdb;"
            myConn.Open()
            IsConnected = True
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Function

    Private Sub cbxProef_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbxProef.Click

        If IsConnected() = True Then

            Dim myCmd As New OleDb.OleDbCommand
            Dim rd As OleDb.OleDbDataReader

            strSQLSELECTLIST = "SELECT Proefnaam FROM Proeven"

            cbxProef.Items.Clear()
            myCmd.CommandText = strSQLSELECTLIST
            myCmd.Connection = myConn

            rd = myCmd.ExecuteReader

            cbxProef.Items.Clear()
            While (rd.Read)
                cbxProef.Items.Add(rd("Proefnaam"))
            End While
            rd.Close()


        End If

    End Sub

    Private Sub cbxVeldnaam_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbxVeldnaam.Click

        If IsConnected() = True Then

            Dim myCmd As New OleDb.OleDbCommand
            Dim rd As OleDb.OleDbDataReader


            strSQLSELECTLIST2 = "SELECT Veldnaam FROM Veldnamen WHERE Proefnaam = '" _
                    & cbxProef.Text & "' ORDER BY Veldnaam ASC"

            cbxVeldnaam.Items.Clear()
            myCmd.CommandText = strSQLSELECTLIST2
            myCmd.Connection = myConn

            rd = myCmd.ExecuteReader

            cbxVeldnaam.Items.Clear()
            While (rd.Read)
                cbxVeldnaam.Items.Add(rd("Veldnaam"))
            End While
            rd.Close()


        End If

    End Sub

    Sub GegevensInvoeren(ByVal cbxProef As String, ByVal cbxVeldnaam As String, ByVal tbxCalender As String, ByVal tbxStuks As String, ByVal tbxGewicht As String, ByVal tbxOpmerkingen As String)

        strSQLINSERT = "INSERT INTO Gegevens(Proefnaam, Veldnaam, Datum, Stuks, Gewicht, Opmerkingen) VALUES('" _
        & cbxProef & "' ,'" _
        & cbxVeldnaam & "' ,'" _
        & tbxCalender & "' ,'" _
        & tbxStuks & "' ,'" _
        & tbxGewicht & "' ,'" _
        & tbxOpmerkingen & "')"


        Dim myCmd As New OleDb.OleDbCommand
        myCmd.CommandText = strSQLINSERT
        myCmd.Connection = myConn
        myCmd.ExecuteNonQuery()

        MsgBox("Gegevens ingevoerd!")

    End Sub

    Private Sub btnInvoeren_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnInvoeren.Click

        If cbxProef.Text <> "" Or cbxVeldnaam.Text <> "" Or tbxCalender.Text <> "" Or tbxStuks.Text <> "" Or tbxGewicht.Text <> "" Or tbxOpmerkingen.Text <> "" Then
            If IsConnected() = True Then

                Try

                    GegevensInvoeren(cbxProef.Text, cbxVeldnaam.Text, tbxCalender.Text, tbxStuks.Text, tbxGewicht.Text, tbxOpmerkingen.Text)

                Catch ex As Exception
                    MsgBox(ex.Message)
                End Try

            End If
        Else
            MsgBox("Vul alle velden in!", MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly)
        End If

    End Sub


End Class

Alvast bedankt aan iedereen die probeert te helpen :thumb: