VB 6 to VB 2019 execption

I just starting to program in visual basic 2019 but, I program before in visual basic 6 I have this exception. VB 2019 does not recognice this codification how can I open this operation in VB 20019 somebody
know it please.

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If cn.State = ConnectionState.Open Then cn.Close()
cn.ConnectionString = Ca.cnstring
cn.Open()
GetData("Select * from stockin")
_Clear()

End Sub

Message:

This exception was originally thrown at this call stack:
[External Code]
Stock_System.Form1.Form1_Load(Object, System.EventArgs) in Form1.vb
[External Code]



Thanks in advance