ahhh se me olvido lo estoy haciendo en visual basic 6

si mas explicaciones de como esta tu sistema, podrias hace un query q te traiga el promedio de calificaciones:

select avg(calificaciones) from alumnos

solo debes colocar una variable que capture la suma de todas las calificaciones y que se divida entre ellas mismas asi logras sacar el promedio esta facil eso amigo
pero deberias colocar lo que llevas pues asi a simple leer lo que dices pues se puede hacer de muchas formas pero talvez desees o te han pedido una forma en especial.

pues bastaria con 2 variables una para hacer la suma de las calificaciones y otra para contabilizar el el total de calificaciones y asi realizar una divicion entre las dos

Un ejemplo seria:
Suma = Val1+Val2+Val3............
Promedio=Suma/(La cantidad de calificaciones con las que se quiere sacar el Promedio)

Si las notas sumadas fueran 4, entonces se divide entre 4 y asi segun tu necesidad

QUE PROGRAMA USAS WE, POR QUE HAY TANTOS, PERO ME IMAJINO QUE A DE SER "BISUAL VASIC" SI ES ASI, AQUI TE DEJO ALGO, PERO NO ASMOS TAREA WE.

TIENES QUE ASER UNA CONECCION DE "Open de Adoc" con el provider
este codigo muestra como gusrdar los datos de algien X
******SI SAVES BISUAL VASIC NO TENDRAS NINGUN PROBLEMA PARA CAMBIAR CODIGOS Y ASERLO TUYO EL PROGRAMA WE, ASI COMO ENTENDERLE***********

Public CONEXION As ADODB.Connection
Public TABLA As ADODB.Recordset

Private Sub CMDBUSCAR_Click()
Set TABLA = New ADODB.Recordset
Set TABLA = CONEXION.Execute("SELECT * FROM AMIGOS WHERE CURP='" & TXTCURP.Text & "'", , adCmdText)

If TABLA.EOF Then
TXTNOMBRE.Enabled = True
TXTDOMICILIO.Enabled = True
TXTCOLONIA.Enabled = True
TXTCODIGO_POSTAL.Enabled = True
TXTCIUDAD.Enabled = True
TXTESTADO.Enabled = True
TXTTELEFONO.Enabled = True
TXTCELULAR.Enabled = True
TXTEMAIL.Enabled = True
DTPFECHA_NAC.Enabled = True

CMDGUARDAR.Enabled = True
CMDCANCELAR.Enabled = True

CMDBUSCAR.Enabled = False
Else
MsgBox "CURP YA EXISTE", vbInformation, "AVISO"
TXTCURP.Text = ""
End If
TABLA.Close
Set TABLA = Nothing

End Sub

Private Sub CMDCANCELAR_Click()
TXTCURP.Text = ""
TXTNOMBRE.Text = ""
TXTDOMICILIO.Text = ""
TXTCODIGO_POSTAL.Text = ""
TXTCIUDAD.Text = ""
TXTCOLONIA.Text = ""
TXTESTADO.Text = ""
TXTTELEFONO.Text = ""
TXTCELULAR.Text = ""
TXTEMAIL.Text = ""
DTPFECHA_NAC.Value = Date


TXTNOMBRE.Enabled = False
TXTDOMICILIO.Enabled = False
TXTCOLONIA.Enabled = False
TXTCODIGO_POSTAL.Enabled = False
TXTCIUDAD.Enabled = False
TXTESTADO.Enabled = False
TXTTELEFONO.Enabled = False
TXTCELULAR.Enabled = False
TXTEMAIL.Enabled = False
DTPFECHA_NAC.Enabled = False

CMDGUARDAR.Enabled = False
CMDCANCELAR.Enabled = False

CMDBUSCAR.Enabled = True
End Sub

Private Sub CMDGUARDAR_Click()
CONEXION.Execute "INSERT INTO AMIGOS VALUES('" & TXTCURP.Text & "','" & TXTNOMBRE.Text & "','" & DTPFECHA_NAC.Value & "','" & TXTDOMICILIO.Text & "','" & TXTCOLONIA.Text & "'," & TXTCODIGO_POSTAL.Text & ",'" & TXTCIUDAD.Text & "','" & TXTESTADO.Text & "','" & TXTTELEFONO.Text & "','" & TXTCELULAR.Text & "','" & TXTEMAIL.Text & "')", , adCmdText
MsgBox " SE HAN ALMACENADO LOS DATOS", vbInformation, "AVISO"
TXTCURP.Text = ""
TXTNOMBRE.Text = ""
TXTDOMICILIO.Text = ""
TXTCODIGO_POSTAL.Text = ""
TXTCIUDAD.Text = ""
TXTCOLONIA.Text = ""
TXTESTADO.Text = ""
TXTTELEFONO.Text = ""
TXTCELULAR.Text = ""
TXTEMAIL.Text = ""
DTPFECHA_NAC.Value = Date


TXTNOMBRE.Enabled = False
TXTDOMICILIO.Enabled = False
TXTCOLONIA.Enabled = False
TXTCODIGO_POSTAL.Enabled = False
TXTCIUDAD.Enabled = False
TXTESTADO.Enabled = False
TXTTELEFONO.Enabled = False
TXTCELULAR.Enabled = False
TXTEMAIL.Enabled = False
DTPFECHA_NAC.Enabled = False

CMDGUARDAR.Enabled = False
CMDCANCELAR.Enabled = False

CMDBUSCAR.Enabled = True
End Sub

Private Sub CMDSALIR_Click()
Unload Me
End Sub

Private Sub Form_Load()
Set CONEXION = New ADODB.Connection

CONEXION.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\recursamiento\AGENDA.accdb;Persist Security Info=False"
CONEXION.Open
End Sub

Y PARA CONSULTARLAS ALGO COMO ESTO:

Public CONEXION As ADODB.Connection
Public TABLA As ADODB.Recordset

Private Sub CMDANTERIOR_Click()
TABLA.MovePrevious
If TABLA.BOF Then
TABLA.MoveLast
End If
Call MUESTRA
End Sub

Private Sub CMDFINAL_Click()
TABLA.MoveLast
Call MUESTRA
End Sub

Private Sub CMDINICIO_Click()
TABLA.MoveFirst
Call MUESTRA
End Sub

Private Sub CMDSALIR_Click()
Unload Me
End Sub

Private Sub CMDSIGUIENTE_Click()
TABLA.MoveNext
If TABLA.EOF Then
TABLA.MoveFirst
End If
Call MUESTRA
End Sub

Private Sub Form_Load()
Set CONEXION = New ADODB.Connection

CONEXION.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\recursamiento\AGENDA.accdb;Persist Security Info=False"
CONEXION.Open
Set TABLA = New ADODB.Recordset
TABLA.Open "AMIGOS", CONEXION, adOpenDynamic, adLockOptimistic, adCmdTable
Call MUESTRA

End Sub
Private Sub MUESTRA()
LBLCURP.Caption = TABLA!CURP
LBLNOMBRE.Caption = TABLA!NOMBRE
LBLDOMICILIO.Caption = TABLA!DOMICILIO
LBLCP.Caption = TABLA!CP
LBLCOLONIA = TABLA!COLONIA
LBLCIUDAD.Caption = TABLA!CIUDAD
LBLESTADO.Caption = TABLA!ESTADO
LBLTELEFONO.Caption = TABLA!TELEFONO
LBLCELULAR.Caption = TABLA!CELULAR
LBLEMAIL.Caption = TABLA!EMAIL
LBLFECHA_NAC.Caption = TABLA!FECHA_NAC
End Sub

*******SOLO DAMOS ALLUDA, NO SEMOS TAREA"************

losiramluziferblavatsky.blogspot.com

con un query:

select (calf1+calif2+calif3)/3 as promedio from calificaciones where id_alumno=1;

Es un ejemplo, si tubieras mas parciales solo agrega los campos a la consulta y dividelos entre el numero y al id del alumno asignale el que quieras mostrar