I want to convert this VB6 code into VB.NET code but I'm a newbie in VB.NET.
On Error Resume Next
rsTemp.AddNew
rsTemp!ID_temp = rsKnowledge!ID
rsTemp!fact = rsKnowledge!YESfact
rsTemp.Update
jwb = rsKnowledge!Yes
If Left(answer, 1) = "G" Then
rsKnowledge.MoveFirst
rsKnowledge.Find " ID= '" & answer & "' "
Label1.Caption = rsKnowledge!question
Else
rsSolution.MoveFirst
rsSolution.Find " ID_solution= '" & answer & "' "
frmDiagnose.Label1.Caption = rsSolution!solution
frmDiagnose.Show vbModal
End If
By the way, that is an expert system code,