اشکال کد

[majidsoft]

با سلام می خواستم ایراد این کد را بدانم


Dim cno As SqlConnection = Fn_Get_SqlConnection()
cno.Open()
Dim cmo AsNew SqlCommand("selcet * from dorem ", cno)
cmo.CommandText = "insert into dorem (dore,cm,cr) values (@dore,@cm,@cr)"
cmo.Parameters.Add("@dore", SqlDbType.BigInt).Value = 1
cmo.Parameters.Add("@cm", SqlDbType.BigInt).Value = cm
cmo.Parameters.Add("@cr", SqlDbType.BigInt).Value = cr
cmo.Parameters.Clear()
cmo.ExecuteNonQuery()
cno.Close()