Type Grade não definido

Ele fala que o tipo Grade não existe, você criou essa classe?

meu sistema está assim

está dando erro no botão Gravar

erro AtualizaCliente is not a member of sistema.grade

mError is not a member of sistema grade

incluirNovoCliente is a not a member of sistema grade

Public Class Form3

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
MsgBox("Deseja Sair", MsgBoxStyle.OkCancel)

Me.Close()
End Sub

Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
LimpaCampos()
End Sub

Private Sub LimpaCampos()
With Me
.txtTamanho.Text = ""
.TxtCores.Text = ""
.TxtValor_da_Venda.Text = ""
.TxtQuantidade.Text = ""
.TxtQuantidade_Estoque.Text = ""
.TxtQuantidade_Grade.Text = ""
.TxtQuantidade_para_Cadastro.Text = ""
.txtTamanho.Focus()
End With
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim Grade As New Cadastro
Dim opcao As String
If txtTamanho.Text <> "" Then
opcao = MsgBox("Confirma a EXCLUSÃO deste cliente?", MsgBoxStyle.YesNo, "Cadastro de Clientes!")
If opcao = 6 Then

Exit Sub
Else
MsgBox("Cliente excluido com sucesso !", MsgBoxStyle.Information, "Cadastro de Clientes!")
LimpaCampos()
Exit Sub
End If
Else
Exit Sub
End If

 MsgBox("Selecione o cliente a ser excluido usando a opção <Pesquisar> ", MsgBoxStyle.Information, "Cadastro de Clientes")

 End Sub

 Private Sub BtnGravar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnGravar.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 Cadastro = New Grade()
 Cadastro.atualizaCliente(txtTamanho.Text, TxtCores.Text, TxtValor_da_Venda.Text, TxtQuantidade.Text, TxtQuantidade_Estoque.Text, TxtQuantidade_Grade.Text, TxtQuantidade_para_Cadastro.Text)
 If Cadastro.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 Grade = New Cadastro()
 Grade.incluirNovoCliente(txtTamanho.Text, TxtCores.Text, TxtValor_da_Venda.Text, TxtQuantidade.Text, TxtQuantidade_Estoque.Text, TxtQuantidade_Grade.Text, TxtQuantidade_para_Cadastro.Text)
 MsgBox("Cliente incluído com sucesso !", MsgBoxStyle.Information, "Cadastro de Clientes!")
 Exit Sub

 MsgBox("Error ao incluir Cliente no Banco de Dados!" & vbCrLf & MsgBoxStyle.Information, "Cadastro de Clientes!")
 Exit Sub
 End If

 

 End Sub

Sim você já falou isso, mas eu estou falando que sua classe Grade não existe, por isso que você tem esse erro.

Eu criei uma classe chamada Grade

o erro está no Cadastro.atualiza cliente e no if Cadastro .MError e nessa parte Grade.incluirNovoCliente

está dando erro também

o Codigo Dim Cadastro = new Grade

está funcionando

Cadastro.atualizaCliente(txtTamanho.Text, TxtCores.Text, TxtValor_da_Venda.Text, TxtQuantidade.Text, TxtQuantidade_Estoque.Text, TxtQuantidade_Grade.Text, TxtQuantidade_para_Cadastro.Text)
If Cadastro.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 Grade = New Cadastro()
Grade.incluirNovoCliente(txtTamanho.Text, TxtCores.Text, TxtValor_da_Venda.Text, TxtQuantidade.Text, TxtQuantidade_Estoque.Text, TxtQuantidade_Grade.Text, TxtQuantidade_para_Cadastro.Text)
MsgBox("Cliente incluído com sucesso !", MsgBoxStyle.Information, "Cadastro de Clientes!")
Exit Sub

MsgBox("Error ao incluir Cliente no Banco de Dados!" & vbCrLf & MsgBoxStyle.Information, "Cadastro de Clientes!")

Este código funciona? Qual deles está dando erro, está muito confuso cara.

o Codigo está com 3 erros

o erro está dando no codigo

Cadastro.atualizaCliente aqui está dando erro

If Cadastro.mError = "" Then essa parte não funciona

Grade.incluirNovoCliente essa parte do codigo está dando erro também