主题：通过输入代码来输入国家名称

请先看以下示例：

假定在某个文本框中，希望通过输入代码来输入国家名称，可将DataParse事件代码设为：

If e.Value IsNot Nothing Then
If e.Value = "ZG" Then
e.Value = "中国"
ElseIf e.Value = "MG" Then
e.value = "美国"
ElseIf e.Value = "RB" Then
e.value = "日本"
End If
End If

这样用户在文本框输入"cn"，离开此文本框时，"cn"会被自动替换为"中国"。

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

我希望是：

在窗体的TextBox1个文本框中，通过输入代码来输入国家名称：

在表B中，有“国家”和“简码”二列，例如：国家：中国，简码：ZG

窗体的TextBox1个文本框中，我录入ZG，TextBox1能根据表B中找到对应的国家名称“中国”

请问如何做到？