急，我修改了N遍，这段代码哪里出错了（在线等待！！）

说明：VB调用D开发的DLL接口.
错误状态： 这个函数在D调用成功，而在VB调用提示错误，内存不能为只读！数 据 库:Tinydb 2.93
模块名称：测试数据库是否连接成功
参    数：无
返 回 值：ok 成功 |error 错误
function GetRS:Pchar;Stdcall;
var
   TTB:TTinyTable;
begin
  try
    TTB:=TTinyTable.Create(nil);
    try     TTB.DatabaseName := 'F:\APTDLL\vbdemo\GDWYZX.apt';
     TTB.TableName := 'Userinfo';
     TTB.Password := 'hi_server_V0.1';
     TTB.Open;
     Result :='ok';
    finally
     TTB.Close;
     TTB.Free;
    end;
  except
    Result := 'error';
 end;
end;  ===========================
vb声明调用Aptdll.dllPrivate Declare Function GetRS Lib "Aptdll.dll" () As String================================================Private Sub Command1_Click()   If GetRS() = "ok" Then
      MsgBox "ok"
   Else
      MsgBox "Error"
   End If
End Sub
---------------------------------------------------------请各位高手看看，为什么我的VB6调用这个函数提示内存不能为只读的错误？????
急在线等待