请问因工伤受伤，小腿的主骨和腓骨断掉其中脚后跟有根茎已经坏死。能鉴定到几级残废和赔偿多少？？

里不明白，发留言问我。

Private Sub 确认_Click()
On Error GoTo Err_确认_Click '容错处理，出错后，转到 GoTo Err_确认_Click
Dim dbs As Database '定义数据表变量
Dim rst1 As DAO.Recordset '设置rst1 为dao.recordset的引用
Set dbs = CurrentDb 'dbs变量指向CurrentDb Database对像
Set rst1 = dbs.OpenRecordset("操作管理员") 'rst1指向dbs对像的"操作管理员"表格
If Me.代码.Value = "" Or Me.密码.Value = " " Then '下面四行判断是否在“代码”文本框中输入内容
MsgBox "编号或密码不能为空！"
Exit Sub
End If
If rst1.RecordCount <> 0 Then '"操作管理员"数据表不为空的话，指向其第一条记录
rst1.MoveFirst
End If
With rst1
Do While Not .EOF '循环至数据表最后一条记录
If Me.代码.Value = .Fields("代码") And Me.密码.Value = .Fields("密码") '如果输入的代码和密码均与数据库中的一致
Then
操作员代码 = Me.代码.Value '保存"代码"到操作员代码变量
操作员姓名 = .Fields("姓名") '读取数据表中的"姓名"，存入操作员姓名变量
Dim stDocName As String
Di