Type Grade não definido

esse é o meu código do botão salvar ele está dando erro Type Grade is not defined

ai nessa parte

Dim Cadastrar As New Grade

está dando erro como eu faço pra definir isso o Cadastrar e a Grade estão dando erro

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

If Me.txtTamanho.Text = "" Then

MsgBox("Por Favor informe um nome para este Cliente!", MsgBoxStyle.Information, "Cadastro de Clientes")

txtTamanho.Focus()
Exit Sub
ElseIf TxtCores.Text = "" Then
MsgBox("Por Favor informe o endereco do Cliente!", MsgBoxStyle.Information, "Cadastro de Clientes")
TxtCores.Focus()
Exit Sub
ElseIf TxtValor_da_Venda.Text = "" Then
MsgBox("Por favor informe a cidade do Cliente!", MsgBoxStyle.Information, "Cadastro de Clientes")
TxtValor_da_Venda.Focus()
Exit Sub
ElseIf TxtQuantidade.Text = "" Then
MsgBox("Por Favor informe o Estado do Cliente!", MsgBoxStyle.Information, "Cadastro de Clientes")
TxtQuantidade.Focus()
Exit Sub
ElseIf TxtQuantidade_Estoque.Text = "" Then
MsgBox("Por Favor informe o telefone do cliente!", MsgBoxStyle.Information, "Cadastro de Clientes")
TxtQuantidade_Estoque.Focus()
ElseIf TxtQuantidade_Grade.Text = "" Then
MsgBox("Por Favor informe o telefone do cliente!", MsgBoxStyle.Information, "Cadastro de Clientes")
TxtQuantidade_Grade.Focus()
ElseIf TxtQuantidade_para_Cadastro.Text = "" Then
MsgBox("Por Favor informe o telefone do cliente!", MsgBoxStyle.Information, "Cadastro de Clientes")
TxtQuantidade_para_Cadastro.Focus()
Exit Sub
Else
Dim Cadastrar As New Grade
Cadastrar.atualizaCliente(txtTamanho.Text, TxtCores.Text, TxtValor_da_Venda.Text, TxtQuantidade.Text, TxtQuantidade_Estoque.Text, _
TxtQuantidade_Grade.Text, TxtQuantidade_para_Cadastro.Text)
If Cadastrar.mError = "" Then
MsgBox("Dados atualizados com sucesso !", MsgBoxStyle.Information, "Cadastro de Clientes!")
Exit Sub
Else
MsgBox("Error ao Atualizar dados do Cliente !", MsgBoxStyle.Information, "Cadastro de Clientes!")
Exit Sub
End If
'Incluir Novo Cliente
Dim Cadatrar As New Grade
Cadastrar.incluirNovoCliente(txtTamanho.Text, TxtCores.Text, TxtValor_da_Venda.Text, TxtQuantidade.Text, TxtQuantidade_Estoque.Text, TxtQuantidade_Grade.Text, TxtQuantidade_Grade.Text, TxtQuantidade_para_Cadastro.Text)
If Cadastrar.mError = "" Then
MsgBox("Cliente includo com sucesso !", MsgBoxStyle.Information, "Cadastro de Clientes!")
Exit Sub
Else
MsgBox("Error ao incluir Cliente no Banco de Dados!" & vbCrLf & Cadastrar.mError, MsgBoxStyle.Information, "Cadastro de Grade!")
Exit Sub
End If
End If

End Sub