Laatste ID (Opgelost)

Dim strProd
        strProd = Request.QueryString("id")
        Dim cnnConnectie As New SqlConnection(System.Configuration.ConfigurationManager.ConnectionStrings("conGIP").ToString())
        Dim strBestel As String = "SELECT bestel_id FROM tblBestellingen WHERE klant_id='" & strKlant_id & "' AND bestel_bevestigd='0'"
        Dim myCommand As New SqlCommand(strBestel, cnnConnectie)
        Dim myReader As SqlDataReader
        Dim bestel_id As String
        Try
            cnnConnectie.Open()
            myReader = myCommand.ExecuteReader()
            If myReader.Read() Then
                bestel_id = myReader.GetValue(0)
                lblTest.Text = bestel_id
                cnnConnectie.Close()
            Else
                cnnConnectie.Close()
                Dim strNieuwBestel As String = "INSERT INTO tblBestellingen(klant_id,bestel_bevestigd) VALUES ('" & strKlant_id & "','0')"
                Dim myCommand2 As New SqlCommand(strNieuwBestel, cnnConnectie)
                cnnConnectie.Open()
            End If
        Catch ex As Exception

        End Try

Dim strProd
        strProd = Request.QueryString("id")
        Dim cnnConnectie As New SqlConnection(System.Configuration.ConfigurationManager.ConnectionStrings("conGIP").ToString())
        Dim strBestel As String = "SELECT bestel_id FROM tblBestellingen WHERE klant_id='" & strKlant_id & "' AND bestel_bevestigd='0'"
        Dim myCommand As New SqlCommand(strBestel, cnnConnectie)
        Dim myReader As SqlDataReader
        Dim bestel_id As String
        Try
            cnnConnectie.Open()
            myReader = myCommand.ExecuteReader()
            If myReader.Read() Then
                bestel_id = myReader.GetValue(0)
                lblTest.Text = bestel_id
                cnnConnectie.Close()
            Else
                cnnConnectie.Close()
                Dim strNieuwBestel As String = "INSERT INTO tblBestellingen(klant_id,bestel_bevestigd) VALUES ('" & strKlant_id & "','0')"
                Dim myCommand2 As New SqlCommand(strNieuwBestel, cnnConnectie)
                cnnConnectie.Open()
            End If
        Catch ex As Exception
 
        End Try