Lançamento de notas em vb

'Importação das bibliotecas de acesso a dados e matematica
Imports System.Data.OleDb
Imports System.Math

Public Class frmLancamentoNota

' instancia da classestring seleciona materia

' declara um objeto da classe connection Dim cnnnota As New Connection()

Public actualkey As Short ' chave atual

Dim intTipoOperacao As Integer ' tipo de operação Dim lastkey As Short ' última chave

Dim selaluno As String 'string seleciona aluno Dim selmat As String 'string seleciona materia

Dim mensagem As String 'para configurar as mensagens

Private Sub habilitar() 'sub rotina que habilita os controles

cboRA.Enabled = True cboAluno.Enabled = True cboMateria.Enabled = True cboSemestre.Enabled = True

TxtAV1.Enabled = True txtAV2.Enabled = True TxtAV3.Enabled = True 'coloca o foco na combo RA cboRA.Focus()

End Sub

Private Sub desabilitar() 'sub rotina para desabilitar controles cboRA.Enabled = False cboAluno.Enabled = False cboMateria.Enabled = False cboSemestre.Enabled = False

TxtAV1.Enabled = False txtAV2.Enabled = False TxtAV3.Enabled = False

End Sub

Private Sub limpa() 'sub rotina para limpar os controles

cboRA.SelectedIndex = -1 cboAluno.SelectedIndex = -1 cboMateria.SelectedIndex = -1 cboSemestre.SelectedIndex = -1

TxtAV1.Clear() txtAV2.Clear() TxtAV3.Clear()

End Sub

Private Sub locreg(ByVal pchave As Integer) 'sub rotina para localizar registro

Dim sqlcmd As String ' seleciona oúltimo registro inserido

If pchave = 0 Then sqlcmd = "sect top 1 * from notas order by codigo desc"

Else sqlcmd = "select *